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This manual contains detailed flowcharts showing the 
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THE CHARTS IN THIS MANUAL SHOW THE DETAILED 
LOGIC OF THE DCS/OS 360 PROBLEM LANGUAGE ANALYZER (PLAN). 
THEY SHOULD BE USEFUL TC THCSE DESIRING A BETTER UNDER- 
STANDING OF THE INTERNAL LGGIC OF THE PLAN SYSTEM. 


THE CHARTS ARE ARRANGED IN TWC SECTICNS. 
SECTION 1 CONTAINS THE FLOWCHARTS FOR EXECUTABLE PLAN 
MODULES. SECTIGN 2 CONTAINS THE FLOWCHARTS FOR THE PLAN 
SUBROUTINES. THE FLOWCHART SYMBOLS ARE LABELED TO AGREE 
WITH THE CARD SEQUENCE NUMBERING FIELD IN THE SOURCE 
DECKS. THESE LABELS MAY BE USED TO CROSS REFERENCE THE 
THE FLOWCHARTS TO THE ASSEMBLER OR FORTRAN LISTINGS GF 
THE PLAN SYSTEM. VCLUMES III AND IV GF THE JS/DOS PLAN 
SYSTEMS MANUALS CONTAIN THE PROGRAM LISTINGS FOR SOS 
(Y290-0350) AND OS (Y¥20-0351). THE NARRATIVES DESCRIBING 
THESE FLOWCHARTS ARE FOUND IN VOLUME [I OF TFE QOS/DOS PLAN 
SYSTEMS MANUAL (Y20-0345}. EXTERNAL SPECIFICATIONS FOR 
THE MODULES SHOWN IN THIS MANUAL CAN BE FOUND IN THE 
PLAN PROGRAM DESCRIPTIGN MANUAL (H293-0594). 


FOR MCST PLAN MODULES THE SAME PRUGRAMMING SUF- 
FICED FOR BOTH THE DOS AND OS VERSIONS OF PLAN. IN CASES 
WHERE THIS IS NOT TRUE SEPARATE FLOWCHAKTS ARE PROVIDED 
FOR BOTH THE OS AND DOS MOCULES. 


THE INDEX THAT FOLLOWS IS ARRANGED IN ALPHA- 
BETICAL ORDER BY CCOMPGNENT NAME. 


First Edition (March 1969) 


Significant changes or additions to the specifications contained in this publication will be reported in 
subsequent revisions or Technical Newsletters. 


This edition applies to Version 1, Modification Level 0 of System/360 Problem Language Analyzer (PLAN) 
(DOS/OS) (360A-CX-26X, 360A-CX-27X) and to all subsequent versions and modifications until otherwise 
indicated in new editions or Technical Newsletters. 


Changes are continually made to the specifications herein. Therefore, before using this publication, consult 
the latest System/360 SRL Newsletter (N20-0360) for the editions that are applicable and current. 
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DOS/OS PLAN MODULE CHART DIRECTORY 


NAME 


GENERAL 

DFJDIOCS 
DF JCNTRL 
DFJCRDIR 
DF JGMERG 
DFJGSRIA 
DF JGSRTB 
“DFJINIT 

DFJLLIST 
DFJLCDER 
DF JPCDMP 
DFJPDIAG 
DFJPEDMP 
DFJPERRS 
DF JPFOMP 
DF JPHRAS 
DFJPIDMP 
DFJPIOCS 
DFJPLAN 

DFUPLAN 

DF.JPLENG 
DFJPLITL 
DFJPMERKG 
DFJPSCAN 
DFJPSRTB 
DFJPSRIA 
DFJPSTSV 
DFJPTDMP 
DFJPTDP1 
DFJPTOP2 
DFJPTDP3 
DFJPTOP5 
DFJPTDP6 
DFJRETN 

DFJRETN 

DFJSIUCS 
DFJTRACE 
DFJTRACE 
$$BDFJD 

$$BDFJDO 
$$BDFJI 

S$$BDFISU 


DESCRIPTION 


CHART 


PLAN SYSTEM LOGIC FLOW cece cccccccccce cece ce e GEN 
DOS SEQUENTIAL FILE ICCS ROUTINE. ce eee eee ee eAAA 
DOS TRACE CONTROL ROUTINE cece cece cece cveeee cAAC 
OS IN-CORE CIRECTORY BUILD ROUTINEs« ee eee eee eAAE 
DGS/OS PERMANENT FILE MERGE ROUTINE «se eee eee eAAG 
DOS/OS PERMANENT FILE SORT ROUTINE «ee eevee e AAI 
DCS/OS PERMANENT FILE SORT ROUTINE. ec eee eee eAAK 
DOS FILE INITIALIZATION ROUTINEs co eee eee eee eAAM 
CS JOBPAC BUILD RCUTINE 6 cence cece ccceceecee eAAU 
OS PROGRAM LOADER,SIOCS,DIOCS,CORE CLEAN... eAAQ 


DQS/OS 
DOS/OS 
DGS/QS 
DOS/OS 
OGS/GS 
DGS/OS 
DOS/OS 
DES/OS 


COMMUNICATION ARRAY DUMPeccccccece ee eAAS 
LITERAL PROCESSING ROUTINE «eee eeee ee eAAU 
ERROR QUEUE FILE DUMPeccocccces cece ee eAAW 
ERROR MESSAGE PROCESSORececcce cece ee eAAY 
FILE DUMP UTILITY eccccccercccccccev ce eABA 
PHRASE DICTIONARY MAINTENANCE 6 ee eee e eABC 
COMMAND DUMP ROUTINEs coe cee cee cece ee eABE 
DEVICE SWITCHING ROUTINEs eo cee cee eee eABG 


DOS RESIDENT MCL NISDN Ei6 oe iiwte ere ee e-ae « oa: Sate we eb 
OSs RESIDENT MA INLAIT NES oe wie 666 wb 666 6 eet ee es wore ABK 


DOS/OS 
DOS/OS 
DUS/OS 
DOS/OS 
DGS/OS 
DGSAQS 
DUS/OS 
DOS/OS 
DOS/OS 
DQS/OS 
DOS/OS 
DOSAQS 
DUS/OS 


PAGE LENGTF CONTROL ROUTINE «ee eee eee eABM 
LITERAL PRCCESSING ROUTINE « eee ee ee oe ABO 
DYNAMIC FILE MERGE ROUTINE «cee cece ee eAAG 
COMMAND PROCESSOR cc ccc cece cece cece ee eABG 
DYNAMIC FILE SORT ROUTINEs ec ee cece oe eAAK 
DYNAMIC FILE SORT ROUTINEs ccoee eevee eAAl 
STATEMENT SAVE PROCESSCRee cece eeee ee eABS 
PHRASE TABLE DUMP ROUTINE. ececceec ee ABU 
DFJPTDMP LGACL MODULE> coccccee cece eeeABW 
DFJPTDMP LCACL MODULEs cece c ccc cone ee eABY 
DF JPTDMP LGACL MODULE«s ceoecccceseaecee ACA 
DFJPTOMP LCACL MODUL Es cece c cee cveeee eACl 
DFJPTDMP LOACL MODUL Ese wee cece cee eeeceACE 


DOS FINAL EXECUTICN MODUL Eee coer cece eve cee cACM 
QS FINAL EXECUTIGN MODULE cece cee r cece cecvee eACU 
DUS SEQUENTIAL FILE IGCCS ROUTINEs coe eee ee ee e ACG 
DOS TRACE FACILITY ROUTINE « cc cece cece cece es eACl 
QS TRACE FACILITY ROUTINE cece cece cece cece ee eACK 
DOS TRANSIENT DUMP ROUTINE «ce cece ccee cece ee eACQ 
DCS TRANSIENT OIRECT ACCESS OPEN ROUTINE. ++eACS 
DOS TRANSIENT INITIALIZATION ROUTINE} eee ee eACU 
DUS TRANSIENT SEQUENTIAL FILE OPEN ROUTINE. -ACW 
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NAME 


BREAK 
CIOEN 
CICEP 

DF JCGET 
DFJ DLOAD 
DFJDSLEL 
DFJFMAIN 
DFJGMAIN 
DF JMPSCB 
DFJPEOUT 
DFJPFOUT 
DFUPFIN 
DFJPIIN 
DF JP IOUT 
DFJSCHB 
DFJSCHN 
DFJSLOAD 
DFJTCON 
DF.JUMC 
DFJUNC 
ERLST 
ERRAT 
ERRET 
ERREX 
ERROR 
EUSER 
EWRIT 
FALSE 
FIND 
GDATA 
GDAT1 
GMERG 
GSGRT 
GTVAL 
GUSER 
INPUT 
IOCS 
IOCS 
IUSER 


DESCRIPTICN CHART 


Ae Ee eR eS OS 


DOS/OS UTILITY SUBROUT INE -s woe 6:6 6.0 60% oeee 40 oe DAA 
OS COMMON ENTRY SUBROUTINE «ce cece cevcccecce eBAC 
OS COMMON ENTRY SUBROUTINEs cc ccceccccvcce eee BAC 
DOS/OS CONVERSICN CONTRCL SUBROUTINE. eceeeee eBAE 
DOS PROGRAM LOQAD SUBROUTINE ec ence cecccccveeee e BAG 
DGS/OS CONVERSION CONTROL SUBROUTINE. -22---eBAl 
DGS CORE DEALLOCATION SUBROUT INEs eee e eevee ee e BAM 
DOS CORE ALLOCATICN SUBROUTINE. ec eee eee ee oe e BAD 
DOS PSCB TABLE MOVE SUBROUTINE cece cee cece ee eo BAG 


DUS/OS E 
DIS/OS F 
DUS/OS F 
DUS/OS I 
DOS/OS I 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


DOS DRIVE TABLE 


CONVERSION SUBROUTINE «eee eee BAS 
CONVERSION SUBROUTINEs «eee e BAS 
CONVERSION SUBROUTINE «eee ee BAU 
CONVERSION SUBROUTINE «eeeee-BAwW 
CCNVERSION SUBROUTINE. eeeeeeBAY 
SEARCH SUBROUTINE «cee e eee ee eBBA 


DOS FILE TABLE SEARCH SUBROUTINE. ecccceee ee «BBC 
DOGS PROGRAM LGAD SUBROUTINE «cece ccecrcceeee eo BAG 
DOS IBCCM REPLACEMENT SUBROUTINE « ceeec cee ee «BBE 
OS FREE CORE CONTROL SUBROUTINEce cece cee eee e BBG 
OS FREE CORE CONTROL SUBROUTINE« sc eeee cece ee o BBG 


DOS/OS 
DOS/OS 
DOS/OS 
DVOS/OS 
DOS/OS 
DOS/OS 
DOS/OS 
DOS/OS 
DVOS/OS 
DOSAQS 
DOS/OS 
DGS/OS 
DOS/QS 
DGS/OS 
DOS/OS 
DOS/OS 


ERROR 
ERROR 
ERRCGR 


INTERFACE SUBROUTINE. coc eecee ee BB! 
INTERFACE SUBROUTINE *s ecccceee ee » BBK 
INTERFACE SUBROUTINE « ceeccecee eBBK 
ERROR INTERFACE SUBROUTINE « eee ccee ee eBBK 
ERROR INTERFACE SUBROUTINE «s ecoececeee ee oe BBK 
USER-EXIT SUBROUTINE cece enc ceecceeee eBDE 
ERROR INTERFACE SUBROUTINE « eee cece ee e BBM 
UTILITY SUBROUTINE «cee cere cece ccceveebFC 
DYNAMIC FILE PROCESSING ROUTINE.e+---BBO 
PERMANENT FILE PROCESSING ROUTINE..~.-BBQ 
PERMANENT FILE PROCESSING ROUTINE..-.BBQ 
PERMANENT FILE MERGE SUBROUTINE. «eee BBS 
PERMANENT FILE SORT SUBROUTINE «-eee--BBU 
ARRAY TRANSMISSTON SUBROUTINE. «eeeeeeBFA 
USER-EXIT SUBROUTINE s cece eee eevee eee e BUE 
COMMAND PROCESSING SUBROUTINE. eoeeeee BBW 


DOS DEVICE SWITCHING SUBROUTINE s cc eee weve ee BBY 
OS DEVICE SWITCHING SUBROUTINE« ccc eee vee e ee eo BCA 
DOS/OS USER—EXILT SUBROUTINE s cece ccecvcceeee te BUDE 
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NAME DESCRIPTION CHART 
LCHEX DGS LOACER INTERFACE SUBROUTINE. ec ccc eee ee eBCC 
LC HEX OS LOADER INTERFACE SUBROUTINE coe cece cece ee eBCE 
LEX DOS/OS LOADER INTERFACE SUBROUTINE. coeeee ee e BCG 
LIST DGS/OS LOADER INTERFACE SUBROUTINE. ec eeee ee BCI 
LISTB DOS/OS LOADER INTERFACE SUBROUTINE «s ee eee e ee e BCK 
LNRET DOS LOADER INTERFACE SUBROUTINE «sc cce cece ee «BOM 
LNRET OS LOADER INTERFACE SUBROUTINE «ee eee e eee eee «BCO 
LOCAL DOS LOADER INTERFACE SUBROUTINE «ee eee eee eee eBCO 
LOCAL OS LOADER INTERFACE SUBROUTINE. ee eee ec eee ce oe eBCS 
LREPT DOS/OS LOADER INTERFACE SUBROUTINE « ee eeee ee «BCU 
LRET DGS/OS LOADER INTERFACE SUBROUTINE. ee eee eee eBCY 
LRLD DOS/OS LOADER INTERFACE SUBROUTINE« eeeceee ee eBDA 
LSAV DOS/OS LOADER INTERFACE SUBROUTINE « eeeeee ee «BDA 
NDEF DOS/OS UTILITY SUBROUTINE cece cece ccc cv cece ee e BDC 
NUSER DGS/OS USER-EXIT SUBROUTINE «ce ccr cece er ceee ee e BDE 
PAIN DOS/OS A FORMAT CCNVERSION SUBROUTINE «eee BDG 
PAQUT DOS/OS A FORMAT CONVERSION SUBROUTINE eeeee--e8DG 
PARGI DOS/OS ARRAY TRANSMISSIN SUBROUTINE. «eeee2-eBUl 
PARGO DOS/OS ARRAY TRANSMISSIN SUBROUTINE. ce eeee eee BDI 
PBFTR GOS/OS BUFFER TRANSFER SUBROUTINE, e-eeeee ee eBDK 
PBTST DQS/OS BIT MANIPULATION SUBROUTINE. ec eeee ee eBDM 
PCCTL DOS/OS CARRIAGE CCNTROL SUBROUTINE. ee eeeee-eBDO 
PCOMP DOS/OS UTILITY SUBRGUTINE «eee cece cece eee e ee »BDQ 
PENDF DOS SEQUENTIAL FILE CLOSE SUBROUTINE. eeeee-2BDS 
PENDF OS SEQUENTIAL FILE CLOSE SUBROUTINE ce eee ee BDU 
PEOF DCS/OS SEQUENTIAL FILE EQF TEST ROUTINE..---BDW 
PEQUT DOS/OS CONVERSION CONTROL SUBROUTINE. «eee0e-eBDY 
PFIN DOS/GS CONVERSION CONTROL SUBROUTINE. ...2e+-BDY 
PFNDOL DGS/OS DYNAMIC FILE PROCESSING ROUTINE..--- BBO 
PFOUT DOS/OS CONVERSION CONTROL SUBROUTINE. ecee ee eBDY 
PFSPC DCS/OS DYNAMIC FILE TEST SUBROUTINE. ce eee ee eBEA 
PHIN DOS/OS LITERAL PROCESSING SUBROUTINE. eeee+-e-BEC 
PHOQJUT DOS/OS LITERAL PROCESSING SUBROUTINE. eceeeee BEE 
PHI QE DGS/OS UTILITY SUBROUTINE. eee cece ce eee eee ee e BEG 
PIDMP DOS/OS PSCAN SPECIAL SUBRCUTINE see cee eeee oe BEI 
PIIN DOS/OS CONVERSION CONTROL SUBROUTINE. «ee+---BDY 
PIOC DOS/OS SEQUENTIAL FILt TEST SUBROUTINE.«ee--eBEK 
PIOUT DOS/OS CONVERSION CONTROL SUBROUTINE. eeeeee-BDY 


DOS/OS PLAN SUBROUTINE CHART DIRECTORY 


NAME DESCRIPTION CHART 
PLINP DOS/OS SEQUENTIAL FILE INPUT SUBROUTINE.-..--eBEM 
PLOUT DOS/OS SEQUENTIAL FILE OUTPUT SUBROUTINE...-BEO 
PMERG DOS/OS DYNAMIC FILE MERGE SUBROUTINE. eeee---BBS 
PPACK DOS/OS UTILITY SUBROUTINE s« ccc ccccccecccce ee eBEQ 
PPAGL DOS/OS PAGE LENGTH CONTROL SUBROUTINE. eeeeeeBES 
PREDL DOS/OS DYNAMIC FILE PROCESSING ROUTINE.-----BBO 
PRELI DOS/OS DYNAMIC FILE PROCESSING ROUTINE..--.-8BO 
PSORT DOS/OS DYNAMIC FILE SORT SUBROUTINE. «eee eee e BBU 
PUNPK DOS/OS UTILITY SUBROUTINE cece ccc reece cece ee e BEV 
PUSH DOS/OS COMMAND PROCESSING SUBROUTINE.s eceeee -BEW 
PWRT1 DOS/OS DYNAMIC FILE PROCESSING ROUTINE.....-BBO 
READ DOSAOS DYNAMIC FILE PROCESSING ROUTINE.....-BBO 
RELES DOS/GS DYNAMIC FILE PROCESSING ROUTINE..-.--BBO 
RDATA D@GS/OS PERMANENT FILE PROCESSING ROUTINE... BEY 
RDAT1 DOSAOS PERMANENT FILE PROCESSING ROUTINE...-BEY 
STVAL DOS/OS ARRAY TRANSMISSION SUBROUTINE. «+eeeeeBFA 
TRUE DOS/OS UTILITY SUBROUTINE «cc cc ccc cece ecce cee BFC 
WOATA DOS/OS PERMANENT FILE PROCESSING ROUT INE...-BEY 
WDATI1 DOS/OS PERMANENT FILE PROCESSING ROUTINE...-BEY 
WRITE DOS/OS DYNAMIC FILE PROCESSING ROUTINE......-BBO 
XACES DOSAOQS DFJPTDMP SPECIAL SUBROUTINE «cc eee ee e BFE 
XB1IT DOS/OS DFJPTOMP SFECIAL SUBROUTINE oe eevee ee -BFG 
XPRNT DOS/OQS DFJPTDMP SPECIAL SUBROUTINE... eeee ee eBFI 
XTRAC DOS/OS DFJPTDMP SPECIAL SUBROUTINE« ce eeeeee -BFK 
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* 
: EXIT 
SA ICIOIIOR RR ROO a tok 


HEE 
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* * * 
PS40 * * * * PS140) * x 
* & x * * * 
ek * *NO ax * *NO ox * «NO 
xe kk x kook Ok x a es * 
PSCAN GENERAL *BO*> LEVEL 1 ss aaleaeatacattaatel O*CO*> VERBS SS eteiettl O*DO *> IMPLICIT SAVE kmasnn-- 
LOGIC FLEW x COMMAND * x * * * Be oe * 
ey * * 40K * * Ped * x 
* x * * x * 
& * * * * * 
* YES * YES * YES 
ROCA BO obo gobo ae took sk ek SIO Oi a tole dake BOR toro a Hob ai ick otk 
SOIC AOR ORK gi a i ak * * * * * * 
* * *CLEAR MANAGEC* *PROCESS DEF. * * * 
* ENTER * * ARRAY TO * %* VALUES FROM * * CALL * 
* * FALSE x *VERBS RT. TO * * LIST&%2,PSTSVS  * 
2 RO ta OK EIA ak * * * eT. * * x 
FOI RR IOI ROR ak ICO ROR ta totok ek 3 ROI OR doko dokok tote 
Kamer reser screen Roemer ttt enor 
* i * PS5C Vv Ps90, * * PS$150 Vv 
% x 3 Op Ro RICK ae * * JCI CR Ht Hk ake 
x *NO a * x * aYES * % 
% * x * DUMP ERROR * * CHARACTER * * * 
* REPEAT Kame eman OK B2 Ke QUEUE FILE [F*-------~- * AFTER COMMAND , aateataateatetel 0 * CALL LRET * 
* COMMAND * x Ok x ANY * * A COLON * * = 
x * *x * % * % * 
% * (IIR tok foi ici tok * x FOTO ICH ROR He OK 
x * * * 
* YES * NO 
Q~---------------—- a 
Vv PS60 Vv Vv 
SOR RR a i ROR ROI a A A OR AC ak JR fom OR dick ok SGC Roi a a tok kok ok a Vv 
* * * & FIO tO Rok tok Hod i ROK a 
* % * READ_IN * * SCAN INPUT * * x 
REAC COMMANDO waco ---0 *SYMBOL TABLE * *xFROM COMMAND * * EXIT * 
* FROM PFILE * * FROM PFILE * *TO SEMICOLON * * * 
x % * * FER tO Ok Hak tek dok tok 
AAO RO toi gO sok tok a JOE ROR I IEC foi SOC ICICI GI Rak fe aokoi 
Q----------------- 0 é€---------------- fs) 
v 
PS10 Vv rd PS100 v 
PREPTCoeror ee. 2 tf 222 * * 20S a Ol ok a 
* xYES * * 
* # x * v * * 
READ NEW * BLANK LEVEL #-------0 *SAVE COMMAND * 
* COMMAND * * : COMMAND : * * IN PFILE : 
Sef OR Ca ig Axe * * 2 II Gin a kok ak ae 
a * 
* NO 
< ee ee a ewe ee ee 
v 
PS20  *# * Vv | PS110 v 
* * SGI RC doi tok @ ate OI ROR IIR CR ak fo i 
x *NO x x x x 
* * * SAVE OR * * PROCESS * 
* VERB PHRASE t= Se * RESTORE * *OBJECT PHRASE* 
* *xMANAGED ARRAY* % DEFINED * 
* * * % * EXPRESSIONS * 
* * JOR IIE ORO RK ook FRO OR Kt kK i 
* * 
* YES 
< ee ee ee ee Se ee 
PS70 v PS120 v 
FRR a ea ROR a OIE Roto i yok 2G I IRR i tak tok aakok 
x * * * x *x 
*COLLECT NEXT * * ADD SYMBOLS * * MOVE OBJECT * 
* VERB PHRASE * * FROM OBJECT * % PHRASE * 
* FROM PFILE * * PHRASE TO * * PROGRAMS TO * 
* * * SYMBOL TABLE * * POP-UP LIST * 
SOR IOI IOI OR dof k ack SOIR I OR IIR & aoa CET ero fe Te tet es 
Vv 
Vv *  * PS130 Vv 
SOOO oR gO tok Re ak x * FC ACI BOR 3a I IK 
* * * *NO * * 
* PUT VERB a * * * PROCESS * 
*PROGGRAM LIST *=-------— 0 * VERBS He am mone QO *OBJSECT PHRASE* 
* IN POP—WP * * % *CHECK ENTRIES* 
x LIST x * * x * 
2 RO AOI OR a i i ok * x SOR RIOR dok dato ae & 
* * 
* YES 
i eeaineemtetes roowaG 
Vv Vv 
PS30. * * PS40 Vv * * PS140 
* * SO RIOR OR ROR gi ek * * 
* *NO HK x * x *NO ek 
* x oe * ADD SYMBOLS * eo 
* LEVEL O *> BO* * FROM VERBS * VERBS *> DO* 
* COMMAND * % * RT. TO LFT. * x Ok % 
x * HK * * * * CK 
* * FO IOIOR ICR RR Ifo kok a * 
* x * * 
* YES * YES 
€2--------------- is) | 
Vv PS50 PSec v PS140 
AOROROI OR IR het Stak tke ROI OR Ok AOI RR kk JO IOI tok a took 
* * AK * * ke * * Hem 
* ek * PROCESS * *  * *D0 PS110-130 * * x 
* INITIALIZE *=--> B2% * DEFAULT #——-> CO* * ABOVE FOR *---> DO 
*SWITCH wORDS * * % * VALUES FROM * % * *EACH VERB RT.* % x 
* me He *OBJECT PHRASE* ke * TO LEFT * ileal 
SCOR ICRC JRC ak FIER RR OIOR ORC Re FR ROR RRR HOR a ak eae a 
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GENERAL PLAN LEX/LRET - ERROR 
ERROR ERROR ERROR PROCESSING 
PRGCESSING SUBROUTINES PROCESSING LOGIC OF 
COGIC PSCAN 
BRSUBS LEXLRET PSCAN 
x FOOSE OI a tok x ia 4K ASIC RIOR I RICK eK JIC I I RI Oa a Ak ok 
ANY USER OR %* Ok & * x KOK x * OK ok % 
PLAN MODULE aBLEA* ENTER * *C1l >* ENTER x *D Lk >* ENTER * 
EXCEPT PSCAN «Ok * ae LEX/LRET * Kk ; * 
OR ARERRS wx ARICA ICRI A ROK Xo ok FGI RR I IO A RICK eK RO ICI IIS I i tolok 
v Vv 
MODULE Vv * * * 0 * 
FERC ICICI ICR ROR IOI Rok ik * * * * 
eK FORT ADR HOI RA HK IK * *NO * *NO 
x Ok % * SAVE ERROR * * * * 
*AZE> X ENTER * MESSAGE IN * ERRORS TO Keenan -- 0 * RECOVER to-- ne 0 
* 4 & MODULE * * PFILE * * PROCESS * SWITCH ON * 
We ROR RR tok fe ok tate xe ek * %* a * 
FO SII kai dod alotok tok * * * * 
*  * *  & 
* YES * YES 
Vv Vv 
v * * Vv PERRS *  * 
ICIS I I ChOk soto tex * x FEO I RI AAO I ROK ac * * 
* * * *NO * a ROK * YES 
x * o* * * * ek x x 
*PROGRAM LOGIC * IMMEDIATE kono (a) * LOAD PERRS *---> AL * * LEVEL LOWER as 
* * SWITCH ON * * * 6x * THAN LAST = * 
* x * * * Sg * * 
ZERO OR Cie Sc ack x X* Fea A OR I fOr tal ak ak ak x * 
* * * * 
* YES * NO 
V ERSUBS Vv Vv 
EOI OIG fololakak ikea 3 tala sc toltoiok tak tok Fa Rolo tak dolokok tototee 
* * ek x * x * 
* CALL ERROR», * %  % * * * * 
*  ERREX» ERRAT *> BL* * CALL_LCHEX * * TURN OFF * 
* GR ERRET Rk * 24, RERRS *K xX * RECOVER SW * 
x * wk * * x * 
ORR IO gk So ak ea ok akc eR Rt RR a i kak Bok eo Ree ae he ake ak aC ak ok he ake kek 
Co ateieateetaeeianeeatae is] Keno nner 
Vv 
MOD10 ERR10. *  & MOD 10 PSC10 
WA RR A ROR he ae a ak a ke % * Fe a 
ake * * * *YES Xe * * 
xO * * * * x * LOADER_ENTRY * * 
*AS%-->% CONTENUE aa * ERRET CALL *> AD* POINT TO LOAD * PROCESS * 
ek *PRGGRAM LOGIC* * 1 e * NEXT PRGGRAM * COMMAND x 
¥* * * * * ACK * * 
FOGG TOR IO ROI a * * SOR I ICI OR tok ete eke dc 
* x 
* NO 
Q--~--------------- fc) 
. v 
Vv LEXLRET v LOADER< Kk 
DR RA Rea ie Re 2 a ae aK fe 2H ak ak ke RR ee v * x 
* * eK * * ORO BORK aK fei oka aie ake x *KYES 
x Hoek * TURN ON * * - * 
* CALL LRET OR *> C1* * — RECOVER * * ENTER * * ERRGRS IN #ko------ 
% LEX Kk * SWITCH FOR * * * THIS COMMAND * 
% x oA x PSCAN x RRR RRR ROR OK HO * * 
FOR OR IOI IOI ROR a gai ak ak SI Or i a a ak ak tok x * 
* * 
* NO 
v v 
* * MOD10 Vv ¥ Ok LEXLRET 
- * JOO RIOR ROR a Re AOR a * * 
* *YES HRI * ** * *NO oi ake 
* * * * * LOAD NEXT * * * * 
* ERRAT CALL *> A5* * PROGRAM OR * * RECOVER *> C1* 
* ek ® * PSCAN * SWITCH ON Ke 
* * eK %* * x * eRe oe 
* * FOO A ICICI IRC R HCl * * 
xk sete Ok 
* NO x & * YES 
Siensr ass >* C1* 
x O& 
aK 
LEXLRET Ce atlas at 
v 
* * PSCAN PSC20 Vv LEXLRET 
* * FR ROI A OR Rafe ak fe ak 
* KYES kK * He Reto 
* EO oe, * CALL LIST es |e 
* PSCAN *> DL* * BlyO< CLEAR *> C1* 
* a * PROG LIST ee 
* * OK * * Ok 
x * FARO IGR totokak at tt tok 
% x He ee 
* NO * * 
---------~ >* A2* 
Ack 
MODULE 
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PER4O 
Peet re role re sss) 
*% x * 
PERRS - PLAN * * * S&T UP * 
ERROR *BO*%x--D>* MESSAGE IN * 
FROCESSOR % * ERASABLE * 
#% * CCMMON * 
FO RR ARE Rf 
RERRS Vv PERLO 
RO OI toi gag aot og ak 
OK PP CrPrerere rere * * eke 
* Oe * * * * * 
*AL >* ENTER * * LOCAL, *> A4* 
x % * * (2,UMOD) * * * 
eEX JOR ROHR IR AR IRC * % ee 
JI I gob i i aia a aK 
v 
* * 
* * 
* ¥*NO 
* x 
* QUEVE FILE s caleetaeeenteted ©) 
* DUMP REQUEST * 
* * 
* x 
* * 
* YES 


Vv 
Sek Ok gk te ata agate akc ae te ake ak a akc a 


* CUMP QUEVE * 
FILE TG 
* PRINTER * 
Tek Rok totoi daiie 
< ted 
Vv 
PERIO | * * % LEXLRET 
+x x XNO 9 fake 
* & & x OF x 
¥*AG*> ANY ERRORS TO *> Cl * 
** * * PROCESS x * 5% 
xk * * Perr 
* * 
* * 
* YES 
v 
Selatan aa tok ig dk ook 
* * 
* * 
* BLILD NEXT * 
SERROR MESSAGE® 
Se IG aOR oak tog i 
v 
* * PERAO 
* * 
* YES te 
USER ERROR x * * 
* MODULE *> BO* 
SUPPLIED * * 
* * wee 
% * 
* * 
* NO 
Vv 
* * 
* * 
* *Y.ES 
* * 
* ERRGR QUEVIN te ie] 
* REQUESTE 
* 


SIS i oi iO tok te kei bok ak ke tok 
* % 

PRINT ERROR os 
MESSAGE * 


SR a Ra ae fe abe ae ake a fe 2 


* 
* 
ae 
ze 
iw) 
+ OF 
* 
* 
pr 
| 
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CHART AAA: DFJDICCS 


DOS DIRECT ACCESS 10CS ROUTINE 


* 
Di01870 D103270 DI0zZ719 * * D103550 
FEI RGR SOR fa 20k * * FR RC ROI RICOH I TC 
2 ROI I 2a aR ak aR aK a oe x x vate *% % *YES x x * 
x * * * x a ed * x x * * 
* START a #608-->#nove TO/FROM ress cee *CO*> OVERLAP Ke SS SSS) Or 00-2 POINT TO * 
* DFJDIOCS * % be USER ARRAY * * eK % * BUFFER 1 
JR AIK aK gga ak en x “eee x x * gee * ok 
eerrrer rrr * FOR ROI I ACI I ORO Oe 
* * 
* NO 
Vv 
010650 * * D102270 0103390 0102759 Vv 0103579 Vv 
* * SOR RO IRI ROI aK IK SER ROR a Solo fod ok Se eS fe 
* *NO OK * * ak XC SWALT BOX * 
* % x * x * * re fe 2------ * 
* WRITE LOCATE Kamen ———O*B1%-->* SAT BUFFER %*---> C9% x CHECK LAST *---------~- > *SET 2 BUFFER * 
* * Ok * POINTER * x * * 10 SW 
* * 0K * eK x * =f 
* * SGC Ri ik k fok aki 20K SO ROR i i Ik Rak a ak Mak ak FRO ROR OR KE 2g OK aK 
* * 
* YES 
€{-----~--------- n 
D10690 v 0163390 0102390 * * D102990 0102859 0103610. * * 
FR RCA KOR IK ao kek ak * Rance e ob He * % 
x x 8K HX * *NO Wee XK HEX * xNO 
* x * * x OK Ok Ok * * OK x x ok ok x 
* SET WRITE %---> C9O% *B2*> REC_DISPL x> C4¥* %*C2%-—>*SET WRITE OP * *D2*> WRITE REQ ON Boao eC 
% REQSW x * * * K€ ZERO x Ok % xX o * * Ok { 
* * HK a * * ok wee x % KK % * 
BOR IORI RI OK AOR aK a x % SRO AOR IO 2x0} gc * x 
* % x 
* YES Kees) 
Qn enn nnn enn nnn ia) 
Vv Vv 
010810 Vv DI02430. * x D102850 eo D10265C 0103650 Vv 
FE IAI I aK gk * * FRR ZO RI ACK I aK 
% * * *NO HHO * *YES ex * * 
% SAVE * * x * kx * * * 
* REGGSsUPDATE x * READ *> C2* % KOUNT=RECO *> BOX * FORCE WRITE * 
* USER ARGS * * * LENGTH * * «x OF BUFFER * 
x x * * eK 3 x FIO * x 
SRO OK a aOR ek aia x * * * EIKO RR IIR Ca ak ak ak acak 
* * * * 
* YES * NO 
RK nce arene nnn ne 9 
v 
BIGLO1O, * * 5 0103550 OR024 70 %* * % 8102920. * * a 0103610 DLO OTOL * * 5 O103¢90 
* KYES eK % *YES OK * *NO KK * xNO kr 
* x x * % % * Ko x O% x OX x 
% QUIESCING *> DO* * KOUNT=RECORD t= ss = = O*C4 *> SAME RECORD *> D2* * 2 BUFFER SW aie C 5% 
% * % LENGTH * IN BUFFER * ON a 
* *x kk x * ee x * aK * * oe 
* * * x * * * * 
* * x * * * * * 
| NO * NO * YES * YES 
Vv 
0101130, * * DIG2510 * * 0103090 v DIO3790, * os 
* * * * SIGE ok a a kak tek ak * * 
* *NO % *NO mee BS BUERERE b7* * *NO 
x x ak * kK kee Ha) ~~ * 5m 
* OVERLAP WAIT #o------ 0 * RECORD FIT IN | *---~--~ Sac5H-—>e REAO io * * LAST BUFFER wo----- 0 
* UFFER * * * BUFFER * 
* * * * x x * * * 
* x * * SRR ROR ROR kek ak ak * % 
x x % * * * 
* YES * YES * YES 
010119¢6 v 0103390 DI02550 * % D1IG2990 DIO3190 * * 0102270 DI03830 Vv 0103390 
FR RO RRR aR IK * * * SR RR OK Ia KK aK aK 
*wAlT BO* sk * *NO eK * KYES kK * * tok x 
See eine ates aed % % % * Ok * x x Ok * * * * * 
x CHECK LAST ¥---> C9x * | QVERLAP MODE *> C4* * OVERLAP + *> BL* * RESET 2 *---> C9% 
* 10 x  *  & * * OK Ok LOCATE * Ok * BUFFER SW * %* ox 
x x 208K * x Hex a * OK * * RCH 
Fa ORR ko do a ok x * * * FIO RO I aI HOI fk at 
* * * * 
* YES * NO 
Q-~--~---+-------- = ---H--------- fe) 
v 
0101290 Vv 0102590 * 2% 0102990 D103230 v DI01770 SBUFREAD 
FOR Rg aK ak ok a * * FR RO ORR ak taki ak ok 

ok * * * ¥NO KOK *WAIT BO* ot, FO OR I OIO IOIK I tok 
*  * x % * x ok Ke HR Qa x oa 
*A7T%——>¥XCALCULATE I0 * * MOVE MODE *> C4* x cueck LAST s---} aoe * ENTER % 

KO * ARGS % x * * x * 
ae * * * * SE Xe * % ree FRC ROR OR a a It ake ie ak ak 
FOR OR AR SOK ak Be teak ak x * JAE ORR RO ICI ak ak 
* * 
* YES 
Q~---------~------ 
v v 
0101490, * * 0102390 0102630 Vv 0103270 * * 0101290 0103870 Vv 
x FR aK Ra gr 2K * FRR ROOK OI RR ARCH Rak 
* *NO SK x x ok % *YES kK * * 
x # * * Es * ok Ok xO * * * 
* RECORD _IN ¥*> B2% * SET READ OP * *C BD ANY KOUNT *> AT* * SET READ OP * 
BUFFER * % % * * x Ok LEFT x % * * * 
* x 40K % * aK x * IK * * 
* x FAI OROR FOO RRO IR 2K * % FRI 2K RO KCK aK a 
* x * * 
| YES * NO 
v 
DIOL77O0. * 0102270 D1G2650 v DI03390 0103890 Vv ocic 
* Se FORO a ak ete a ag aK a Rak ae Vv SA I IOI lof iio i ak: 

a % YES ee ia #0010 AO* ek, 4K SRR IO RRC OK i x * FMC 
x Kk x OF ok Se % RK Ok * * * x 
*AQ*> LOCATE MODE *> Bl* i99%--> READ/WRITE i---> cos %C 9 *D EXIT * * SET 10 ARGS #---} AC * 
x OK & x * % * * * & RETURN * x 2% 

+e * x OK Sa x * rr HK [ROR RRR Rbk a kk a ak * : aoe 

% * JARI OR OR OR Rk kak ak ak cake SO ROR gol Robi ge ack. 
* x RK 
* NO % x 
---------->* BOX 
kk 
DOS/OS PLAN SYSTEM FLOWCHARTS CHART AAA 


DUIO 
HK FAI ROI IO ROR a RR a 
¥  * * 
*AQ >* ENTER 
kk 


He DR ORR ARC a a a Ok a 


HHH 


Vv 
C103950 * * 


Vv 
SRR REC RR  a 


* 

x EXIT 

* RETURN 

SRR ROI RR a A RO I A 


x 
* 


* 


N103990 Vv 
FOR ROR ARIE ROR ROR 


x * 


* * 
*WAIT ON LAST * 
* 10 * 


* * 
ORC Re OR I 2 CR ea aa Ae 


0164050 v 
SOR Rk I Org ak ak dake ek ak 


* 5d 
* & 
* BUILD CCW * 
* 3 
x * 
* * 


FRR I a a a ak a ae ak a 


0104350 V 
A ee ag a a aa 


CCHHR 
SR ROI OR a RO CI 


HHH KHK 


x 
x 
CALCULATE x 
x 
% 


eR Rta ke a aie a ak ke 


* 
* 
* 
* 
* 
oa 


ROR ROB ROO Rd ok 


Vv 
FERRI IC IOI EK a 
EXIT 
RETURN 
SOR IOI IIR ROR I ak 


HHH 
HH te 


* 


CHART AAA: DFJDIOCS 
COS DIRECT ACCESS IGCS ROUTINE 


WAIT 


OR FIO RO RR RO ok 
% * * 
*BO >* ENTER * 
x « * 
cee 2 ROR ORO ROK a a 


Vv 
pig4810 * * 
* * 
* %*YES 
* * 
* LAST I/Q THIS | *-----~~ a 
* RECORD x 
* * 


% * 
* NO 


OR ROR RO FOR OR RK kok 


* 
* EXIT 
* RETURN 

SRR OOR SR ROCK a ea ak ak 


RRM 


0104850 
ZO REI kot tok ak 


x 
* 
* [TSSUE WAIT Pa 
* 
ad 


We ee ak ak a a a oe 


Vv 
SOR I fototod tok aa 
EXIT 
RETURN 
Sto OE ok 


te Ht 
HH 


% 
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CHART AAA 


Ee) 


GHART AAC: DFJCNTRL 
DOS TRACE CCNTROL ROUTINE 


ROR 2K a a ak ok Fok ak 


* 
* START 
*  CFEJCNTRL 

eR dR ke ok he a a a Kk 


+ PC + 
HRE 


# AZM # 


*+ 31CH 


* 
* TRACE ON Hor ee 
* x 


CNT770 
SER IGI ICR A kotok tk 
x 
EXIT a 
TO DFJTRACE * 
2 RO Ok ok sak tok 


* 
x 
x 


Q---~--------~----0 


CNT790 
FE ORR Ok RK eo aK a 
* 
% EXIT 
* RETURN 
3 ROI a ROK kak ak gob ak. 


eH 
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CHART AAC 


CHART AAE: DFJCRDIR 
OS IN-CORE DIRECTORY BUILD RO 


OFJCRDIR 
SO I io to aot 


HHH 
Het 


START 
IR 
RR RR IO 


ocd070 v 
FRO RR AI ROK 


DCD330 v 
SOR OR edb ke 


* * 
* 

*FREE CURRENT 
* DIRECTORY 


Ps 
Jai oto gop gok ok 


* 
* 
* 
x 


OcD570 v 
We a a RK 
* *« 
* * 
* INIT NAME * 
* LIST * 
* * 
* * 


ee ee OR 


PCD61LO Vv 

ROR OR OEE 
* 
* 


REAQ PHRASE i 


* 


6 
& 
* 
* 
ok 
* 
* 
Se RO ok eo dk 


OcO75C Vv 
FORFAR FRO 
* 


* * 
*BUILO LIST OF* 
* NAMES * 


* 
x 


SRR ROR tO ea tok ee ek 


0C01030 
BRB OR OR eR EK 
* 


ee 


x 
*SGRT LIST OF * 
NAMES ‘ 
ROR RR ROK tok tek oe 


He 


DCD147C v 
Oe Rk dk ok ook ek 
% eK 
* % * 
k--=> CO¥ 
sd * 


OK 


HH HHK H 
~ 


S 
FE 
x 
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UTINE 


x 
OCOLé10, * 


x 


x 


Re 

* * % 
*#CO%> 

a * x 
x 


BLOL OK 


0CD1650 Vv 
RIOR ROO IO IOR dea a a fe 


COUNT GOOD 
BLOLS 


& 
* 
* 
x 
x 

ROR Ri a Ro a ok 


%* 
* 
* 
* 
* 
* 


0C01850 v 
FOTO OC TOR RI Ck 


* 


* 
*GET CORE FOR * 
* DIRECTORY 


* 
FORK ak MO aie ae a ac 


He 


eH 


* 


0CD2070 v 
III OR ORR tt a ak 


MOVE BLDL 
ENTRIES TO 
DERECTORY 


RK Ra RR KK 


* 


% 
* % 
* x 
* * 
* * 
* x 


DCD2310 
Se Sod CR ok datok at 


SET _TOP_OF 
FREE STG 


3 
* 
* 
* 
x 
* 
* 
We a ke ee RO He 


* 
* 
x 
x 
% 
x 


Vv 
SOI I EI Of tof i 


EXIT 
RET TO CA 
FORO ROK 


He Ht 
a He 


LLER 
ROE 


CHART AAE 


TOR tO ie ai Hook ak a a ke 
x 
* START 
* DFJ*MERG 
3 OR Of ak Bok tok a 


HH 


x 


MER890 v 
SR ROR ACK ROR OK ARCH ak 
x * 
* * 
*INITIALIZE ID* 
x BLOCKS * 


% * 
FACIE ROI IIA 


MERL 


MER2290 Vv 
RRR ROR RR III a tok aka ak 


* x 
* CALCULATE * 
* AVAILABLE * 
ae CORE * 
* % 
FOR ROI RRC IRR BOR aK a 


MER2750 Vv 
ROR RC ae ak op ak ak ake ak ak ae 
x * 


* x 
*ROUND ID (2)S% 
* x 


* * 
Re Re a Ba ae ak ae ae ok He ok ak 


MERGE ROUTINE 


MER3010 Vv 
FRI CR I 2 OR  R k 


* x 
x * 
*PRIME RECORD * 
* AREAS % 


x * 
JIG tt A III CK 


MER3050 Vv 
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* 
Ea 


HHH 


ENTRY TO 
READ/WRITE 
DIRECT ACCESS 
LOD3690 v 
SOCIO Rok Bok ICH aK 
* * 
* * 
* SAVE REGS, * 
* SET BASE * 
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* PRIMED 
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L0D47506 Vv LOD6110 * * LOD4550 ek L0D7590 LOD7250. * * 
2G a ook dato tok * * * * * 
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Q-=--+-=----- ----C 


OLO8 


wk 
eM Ed 

¥AL¥-—>*SET TRUE EOF 
ee * INDICATOR 
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* * eH 
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* * pre 
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* RECEM = *> Cl* 
x FA,FBA x % * 
* * eK 
* * 
* % 
| YES 
v 
DLalccsc * * 
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FOIA IOI ACO RG 90K 
* * 
* * 
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* * 
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v 
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% * 
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* * 
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3 he a kak ae ae a a a ic 
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x x 
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se ao 
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a 
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FO IO I IO i tok FIR ROR Kak kik 
Pees % x me cd x 
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PROCESSING a * PROGRAM % * % *CONTROL BLOCK* 
ae * x ok * * 
FA IO Cito 2 RRO ogo Fog te ako 
* Vv 
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* * * LIST * * RETURN 
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% * * * 
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He * x * * 
% * * * 
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* YIES 
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O0LC16730 DLO16590 CLC19010 *% * O0LG15610 
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* SAVE COMMON *---> A6* *BE => CHECK LAST 
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x & ote x * Hk 
SOS ROI tor FOI IO tot ak FOR ROR RK 
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DLO19510. *— * 
* * 
* *NO 
x x 
* CTL .RECORD x 
* * 


0LO19550 Vv 
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DLO19570——* x 
* x 
* *NO 
* * 
% RLD RECORD * 
x x 


* * 
* 
* 


x 
* 
YES 


OLO19670 
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x ok 
2 A 
Q----+----~~------ 
DLG227S0 v DLO22490 
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* * 
bee 


CCS/CS PLAN SYSTEM 


FLOWCHARTS CHART AAQ 


P 


* 
* 
* 


CDMP 
FOIE CR RO RO tak 
START 


PCCM 
Sek tenaneene 


eK 


onz 


Pc0270 


Vv 
FORO HOR Bok CK a a ica ak 
% : 


E 
TCaTION® 
Is 
9-640 * 
FOR RRR 


PC0310 


Vv 
ER EE AERA REE 
* 
ZASSIGN BUFFERS 
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*BO0*-> SPACE TwO RCO So? ® TO CURRENT 
* * LINES * *MANAGED ARRAYS 
Hot eae * POSITION * 
FRO Rag OK HK XO FOR IRR IG RIOR bok i Xk 
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PRINT HEADING FOUR 
* sa CHARACTERS * 
Jao ito do dofok tek SC IOI tot ak tok ok 
PCO580 Vv PCD740 *& * 
fol Rok ktolok totok (kaa dk * * 
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* IS THERE A *> D2* MANAGED * 
* MANAGEC ARRAY * * *POsTTiON AND * 
* * RH * PRINT GROUP * 
* * RO A A ROR SOR AOR RO 
# * 
* YES 
PCD620 v PCD790 * * 
FORO AG AOR RO AK * * 
x * «NO 
* SET LOOP TO * * HAVE 8 WORDS ¥* 
*CUMP MANAGED * * BEEN SET TO tew---- ft) 
*°8 WORDS PER * * PRINT * 
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* READ, FILL 
+ BUFFER 
RO ok ee hie i eo 


PFO 


HERE HEN 


* 
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PFD770. * = * PFDTIC 


* 

aK * HHOK 

* ok Ok HA x 

*00%> L *> DLs 

* OOK p * % 
oa 


we x * FO 


* 


PFD840 Vv 
FOR ROI OIC ACI RIOR OR ak | 
* * 
% * 
* SET LINE #-~----~--- 5 
*COUNT TO ZERCS 


ARR IOR IOI ACI OI 





PFDI23¢ 


RY ES tok 
INE * x * 
*> AT * 
S x Ok 

sR koa 


PFD890 Vv 
Be OOK lok ok ik tie 


* 
i} 
t 
' 
{ 
‘ 
4 
' 
oO 
MER MH HH 
mo 


* 
HHH ee 


* DU 
te DH 
x mb 
* 2c 
* -—”m 
* 

* ro 
# mt 
+ 2 


& 
ca 
e 


PFD930 Vv 
FICO ACI RK IOI 
x * 
x 


* 
“MOVE LINE TO * 
x PRINT 3 


FOR KO ORR ORO Ake Xe 


* 


019050 v 

SI ROR CR ROI IIo RO IIR I I HOGI ac 
* * 
> 


PRINT LINE 


SRI IORI OR i AIO HK 


PFD820 PFD1070 v PFDIICN 
BO IOI ORI ER tei kak 

ee * * RCH 

* x % * * % 

*WAS LINE LAST*---> A] * 

*ON THIS PAGE * % 2x 

* * eka: 

SOKO a af ak ake ea a akc akc ak or ak 


PF.D1OS&C 
SO IOI AOR ok Sarr x 
o* * 


a a 
* PCCTLy SET *« 
ey PAGE SKEP Pa 


AOR KO ROR A RRR RC 


v 
PFD1100 * * 


* * 
toa % xYES 
x o* & IS ENTIRE * 
HAL % BUFFER #oa------ 0 
ek PRINTED * 
Hem * % 
* * 
% * 
* NC 
v PFD7.59 
SCR RII IOI I I AICI 
* * toto 
* * % 
* INCREMENT *-=-> C9 * 
* LCCP INDEX * * 1% 
% * Peet 
FIO ROI IO A ROR ACAI He 
Qe 33 - nnn 0 
{ 
a 7 Vv 
PFD1120. * * 
& * 
* *YES 
* 1S THERE * 
* ANOTHER xa-e-~---0 
x BUFFER TG x 
* FILL * 
cS * 
* x 
* NO 
PFD1L4C Vv 
2 li doi kakctoke kates ke ici ai 
4K 
* ok x 
*A4 -> SPACE 5 LINES 
* * * 
HOOK 
SECO ORR RC OR ck eke 
v 
ROR OR OR RK ROR OC 
% * 
* EXIT * 
* LRET 
RH RFR I RC aR I IK IKI 
Q----------+-------- 0 
PFD1180 Vv PFD610 
Fe ah he a Re a ak aR a aK aK a 
* * sete 
* CECREMENT * *%  % 
*WORDS TG DUMP%---> CO % 
* ~ BY 160 ee ha 
* * HK 
MRE RRO CRC 2 AO a aK 
RFD123C 
3G 8 ROR IOI KORO Hk 
eK * * 
* * * ACC ONE TO * 
*AT -—=—>% NUMBER OF * 
% ECUAL LINES * 
OHO x * 
as 
v 
* * PFDLOSC 
* * 
* YES RK 
xk 
* IS THIS FIRST | *> D8 * 
EQUAL LINE 5 LS 
x * aOR Ok 
% * 
* x OHO 
* NE % % 
a a cena >* Al* 
A 
PFO1100 
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PHRAS 


Re OR RO tk 40k a ok ke ate 
* 
* ENTER 
* PHRAS 
2k OR I RKO aK a 


ab He Ht 


* 


PHR38 
BRC ROR RO a a tk ae 
* 


Ht RH 


I 


RHE HH 


ALTIALIZ 
EXECUTIO 
Perel ELS 


+ 2m 


Ee OK 


ONTENTS 
AN 41< 


SRO Ra hak 


* 
* om 
* mo 
+ 
# 2O 
HHH H 


PHR154 


HHH 

* 4 * 

*> 03% 
* * 


ek 


PARTS * * 
* *YES 
* * 

* SETTING ZERO *----~- 
= * 


PHR78 v 
3 ARI ROK foi oot 
% * 
* DELETE PHR * 
*SET INTERNAL * 
* SWITCH * 
x * 


FRAO Ro Rok Re op ake ek Ik 


PHR 80 
FRR AIO RD ak a pe ROKR 
x 


* 

* SET MAN @1< * 
* TG ZERO - * 
¥ALTER PHRASE . 


FOCI IOI ROR AIC 


PHR82 v 
4% RO Ro og a fk a a 
*xC'GMPRESS A2* 
Xe ea § ee ax 
GET * 


a) 
pe 
al 


84 
AIO ROR AIO AO ROK ak 


a 
oe eee pare 
SMANAG ED AREA : 
SORIA ROR Ero a ROK 


wet 


PHR88 


OH 
*  % x * * 
*AQ*=—>% INCREMENT *---> BO* 

* * SUBSCRIPT * * * 
xk * * 

AERO OI OI I OK 22K RCE tea 


PHR86 Vv 
He BOR a ee RC Ra ic a ac 
KK * aK 
* 


ee 
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* 
PHR8B # * PHR126 
x 4 FR AIO TOR FORK 
Bes * *YES wee * ERROR 04* 
* k 8 * x Ok Rone = 29-----— * 
*BO*> COMMA Henne O*CO#-->* -IMPDER- * 
kx * oe x * 
ew * * aK % * 
* eee he ae a ae ok a 
4 * 
* NU 
PHRS2 * * PHR148 PHR128 v 
* * STOR FOR I IOIOI IOI IOI ak 
* *YES  *k* * x 
* x Ok * * * 
* SEMICOLON %*> DO* * TURN OFF * 
* x % * * IMPLIED OO * 
* * wROK x x 
* JCI II RIOR OK Bok aK ak 
* * 
* NO 
PHR96— * * PHR130 v 
* * SOR ROR I tok IK 
* *YES wee *LITERALT Al 
* SLIDING OVER * ey Doe) 
INVALIO Kamm mm OQ | *C2*-->* COLLECT * 
* CHARACTER * x * LITERAL * 
x * 4k * * 
* * EHO AOI OR SOIR FOI Fe Keak 
* * 
* ND 
t | 

PHR1O2 v PHR132 Vv 
FIO OR ROK IDK FORGO 2 doko Fok keke dee ak 
*#ERROR D4* *CHK ENTRY Aix 
Keene— 28------ cg Rone =] 7---- == * 

* -BAD CHAR- * * COLLECT * 

% * * CHECKENTRY * 

* * * x 

ete de ete ee de ode he a ate oe Ae SEE Me leh A te te ap ale te ie te te 
€--------------- 0 

PHR1O4 PHRBB PHR134 Vv 
JOR I UIOR ACIOR ICR HOR FOR A A RIC OI CAOK 
*ADVSUP Al* sek *EXPRESSC Al* 
eS x * kena wae hare * 

* SLIDE GVER *---> BO* * COLLECT * 
* CHAKACTER * * * * EXPRESSIGNS * 
x * RRO % x 
Bh Ae 8 ER ROK MOK Pe cr 3k 
Go ee ee ee 
| Y 

PHR110 PHR138 = * * PHR86 

Poe rrr erorocr ers * * 
*ADVSUP AL* * *NQ 9 EK 
Hee | 5k % OK * 
* GET OVER * * LITERAL *> AQ* 
* COMMA * * % * 
* x * * AK 
SIGIR ICIOI OR tok ak dea * x 
% * 
* YES 
Vv 
PHR112 * * PHR548 PHR142 v 
* * FROCK ROR OR te RORCHOR I IC 
kK * RYES fox * x 
a x *€ * TURN OFF * 
*B6 * DOLLAR SIGN *> AZ * * LITERAL * 
eo * * * 6k * SWITCH * 
RO x * ee * x 
* x FRR RAI R ROR RK HOt 
* * 
| NO 
{ 

PHR116 v PHK 144 Vv PHRBB 
JO ROR ROR ROR aC aie JOR IO SOR IC RO CK 
*ALPHAC Box * * IK 
#----— 21-----— * *SET SUBSCRIPT* *  * 
* CCLLECT * * TO END OF ¥*---> BO* 
* SYMBOLS * * LITERAL * * * 
* * * * HK 
ASIC RR ORGIIOR I IK FORO ROI ROR IK a a a aK kc 

PHR118 Vv 
FER ROGER Gtk i Fok 
* CONSTANT Alx 
* CGLLECT * 

: CONSTANTS 4 
SOO ROR RR a i i rk Mok 
Vv 
PHR1ZO | * * % PHR130 
x *NO Hk 
* * O&K x 
* IMPLIED DO *> C2" 
* * * * 
* * HE He 
x * 
* * EK Re 
* YES * x 
wan s------ >* COx 
«me 
aK 
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PHR148 
SO RIO IR 2OR ACI OK a ie 
lela ¥STRING Al* 
x & a 25------~ * 
*DO -=>*BUILD PHRASE * 
x « % ENTRY * 
wok * * 
ROR FOR RK 2k ICC ke Xeok 
Vv 
PHRL50. * * PHR3 242 
* * 
ok HNC kro 
* * x ok 
o* INPUT ERRORS *> AB 
* * 29% 
* x He 
* * 
* * 
* YES 
ABOR TEND | 
ROK FERRO I EOI AICI GK 
x Oe Ok * 
*D2 >* ENTER * 
* %* * ABORTEND x 
HIER OR CHOICE 2K aR ak Ok a a8 ok 
! 
PHR154 Vv PHR379& 
FRO IORI RAC IOR OI fk 
Ee * * He HOkCa 
* *  *ABORT FURTHER* es 
*D3%-- > PHRAS x---> BO 
ss * * EXECUTION * a 
* * * 
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PHR2C2 PHR236 
FIR ROI I i ofok x tole . ICR OR RHO LOR IOK 
ae *xERROR 04% 0k * * 
LITERALT - L #———=— 28-—-—— OK *  TNCREMENT  * 
LITERAL ¥BO A > -LITER- % *CO*-->%* POINTER AND * 
CGLLECT x * * iets * DECREMENT * 
4% x x aK * CNTR ba 
FO ZIG II ROI OR HOR OK SOICIIOISI ROR ROK BOK gO i 
; v 
LITERALT PHR204 Mi PHR240 * * i PHR228 
HORK SEI ROR OR ak ak ge ak ork ac 4% ROO IORI CH I SOK * x NO tO 
xk Ok % xk * x * * 
*AL >% ENTER i %*B 1 > % EXIT x % LAST *> BI* 
woe # LITERALT * *  o* * CITERALT * % Me 0 * 
2k SIO IR IOI HOI IOI ROK ak Ba FRI A TOR RO ICROK * * eH a 
* 
* * 
* YES. 
Vv Vv 
PHR168 * * PHR2C6 PHR244  * * 
% * JCI CROIR I OR AOR EO fk * * 
* *YES bala * ADVSUP Al* * *NO 
* * x Ok [ro 15-~--~-- ak * * 
* QUOTE Homose G2t==>% SLIDE OVER * ANY RESIDUAL $essqere 
* * ae %* END MARKET * * * 
% * ae * * * * 
* * JO ROR ROE AIO 20K * * 
* * * * 
* NO * YES 
Vv v 
PHR172— * * PHR2C8 * PHR 202 PHR248 Vv PHR228 
* * * * SOCIO III I IOI RII 
* xYES * KYES HK * KK 
* * x xk ok * % * * 
* ATSIGN Bea ? * EMPTY LITERAL *> BOX *PAD WORD WITH*---> BT7* 
x % x * OK * * BLANKS % * * 
* * Ss * HI I o* x HK 
% x %* x ROR ROR ROR IE ROR a aK RCE 2 
* % % * 
ONG * NO 
| | aaa tt 
v 
PHR176_ * x PHR2C4 PHR212 Vv PHR260 Vv PHR204 
% * SO I oI ICRI tok SOIR IOI I tok solok kc 
* *NO etek * cs * * wa 
* a * * PLACE CQUNT * * SAVE AND % * * 
* DCUBLE QUOTE *> Bl* * FOR OUTPUT, * * RESTGRE Baap BL 
* 8 % x SAVE * * SUBSCRIPT * * % 
* * Hee * SUBSCRIPT * * * OOK 
* * SIC IOI IOI fk BIOOICRCR I A Ok 2 tOk ok ak 
* * 
* YES 
a cal pea oa act ea 0 
PhHR18C Vv PHR222 Vv 
OI IO RRO ROR IE IE RISO HOI I ok ak tok 
* x x * 
* * * TURN ON * 
%* GET LITERAL * % LITERAL * 
: MARKED 2 * COLLECT Pa 
FOIA ROR SR ROR a HOR a SIRI ICR III ok 
Vv 
PHR182 Vv PHR224 * * 
FA IOIOI GR IO ACI AUIOK * % 
2% * % *xNO 
*ZERO LITERAL * * CGUNT TO BE * 
*CNTR_ AND SAVEX * OUTPUTTED eo G 
*PRESENT CNTR 7 * COUBLE QUOTE | * 
* 
RO IO IO RR RO * o* 
* * 
x YES 
i alana ie) 
PHK188 Vv PHR228 V 
JG IOI ROK dog Bog ok 2K a FIO IORI OrOk tec 
* % ax *WSYML B8* 
% x x ok Xone = 20------ * 
* INCREMENT = * *B7%-->* WRITE FULL * 
% POINTER % as *WORD TO TABLE* 
* x Er x * 
FE ROR Ra OK RO ROR ROI ROR ROR RRR I kak 
v 
PHRL9O * * AHR2C6 PHR230 v 
x * FGI OR AC katok dak 
x *YES XK * x 
x x Ox * * * 
* INPUT # *> B2% * INCREMENT * 
* LENGTH x % * * SUBSCRIPT * 
* * tok * * 
% * SG SIOIO I ROR ROR tok kaka 
* * 
* NO 
Generar ey 
v 
PHK196, * x PHR222 Vv 
x * ROBO I IOI OR lotok late 
* *NO * * HK A 
* % * GET FOUR * * x 
¥ SEMICGLON kss<>== * BYTES OF x—~-> CO* 
% x * LITERAL * % * 
x * % x SACK 
a * OR ROI BOR ROI RR 
* x sok 
* YES * x 
sey ecse ese >4% BO* 
soko 
PHR202 
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¥*AL 
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PbHR2S8 
FOI OIRO I IOI ROK aot 
*CCLNUMT Al* 
x *<---- 26------* 
CONSTANT %—=>* CONSTANT 2 = * 
CGLL ECT * * TEST & COLL bs 
* 
2S ROR RR OR ee 
Vv 
GQNSTANT PHR302 | * x 
€ 
2 ROI CR Ig RO kok a * *YES 
a * * * 
>* ENTER * * UNARY SIGN , eleiaaas 9 
* * CONSTANT a a 
[IIR RIOR RO tog a % * 
* * 
* * 
* NO 
PHR276C v FHR3CS 
SOIT CII I SOR A IRC toe ak 
* * Ob tO i tok ok yo tok 
% * * * 
*SET NO UNARY * * EXIT * 
* SIGN SWITCH  * * ~CONSTAN * 
* * FAIR OR ROR Ok 
JRO AR ROR GOR 2k a 
| Q---- <2 een is) 
v | 
PHR278 * * PHR3C6 v 
* x PSP TELE CE feo. 2] 
* *YES * * 
* * * * 
* EBCDIC PLUS ke * SET TRUE * 
* SIGN . * 
* 
* * FOO tok tok sak de ak 
* * 
* NO 


Vv 
PHR282 * * 
ad * 
* *YES 
oe * 
* PI BCD PLUS 6IGN 


* * 
x * 


* * 
| NG 
v 


PHR286 * * PHR298 
a a 


* *xNO HK 
x 8 * 
* MINUS *> BO* 
* Ok * 

* * KK 


kaa 


PHR290 Vv 
JOR RA Sp ROR Bok tok 
x * 
x * 
*SET NWMBERSW % 
* NEGATIVE * 


* * 
Si a Re gfe af ak aie ake a af ake a aie 


PHR292 
2 ai i a noi toto 


PHR294 


i a i ae 02 Ree a tir akc 
* 


Ic 
UNARY. 


SR ROR a ak 


iN 
OI 


RHE 


2 

* 

* 

x 

* INDICAT 
* SI 
x 

* OK 


PHR296 Vv PHR2S8 
OI RO ROR I RO AG aR aR ai ak 
*ADYSUP AlL* aK 
oe —--—- * * 
* SLIDE OVER *---> BO* 
% SIGN oe * * 
* * tO x 
PTC Tererrr riers) 





Vv 
PARSCE * * 
* *YES 

* 


PHR310 v 
SOO Roe et 


x * 
* * 
* SET FALSE * 
x x 
* * 
% * 


Oe RR 


PHR312 Vv 
Te ab oe Rk a oie a ok kok 
* * 
* * 
* S&T NUMBSH * 
be NEGATIVE Pid 
2 ROR tf k a i tok aa 
Cass e S553 32=55>, 0 
PHR314 Vv WSYML 

ROI OR Ro koko tc Ok 
cd % KK 
* * * x 
* SET EXIT komm —> BR * 
% * * 20% 
x % ee 
Jeg gO RO ea ak a ate Xa oe 

CONSTAN2 WSYM 
Fe a eR a 
* * He hem 
* % * « 
* SET EXIT ¥---> AB * 
* * * 20 
* * eke 
a toto OR ga toto tok 
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con 
ae, Bgl 
Amn 
enn 
zor 
mo4o 


EXPRESSC 


dO FOIE ROI a RO ta 
xR Ok 

*AL >* ENTE 
*  &« & ~EXPRESSC 
tOIOK SRO FIR I aK 


x 
HR 


* 
+ 


PHR336 * * 
* 


oak * 
x Ok * 
*AB%X> EQUAL SI6N Xa =O 
x  % * 


eK * x 
x * 


% % 
NO 


ee 


PHR340 * * 
% * 


v 
PHR344, # x 


* *YES 
* * 


* re POUND SIGN 


RH 


Q----------------- 6 


PHR348 V 
FOI RR II ROR FOI KK 


*DARITHX Cax 


opore e 


xDIAGNOS» SCANS 
ARITH EXPR : 


SOCIO I ROI ROR HOR A a 


v 
PHR350 | * % 


PHR354 Vv 
SIO IO IOI SROKA a 
te a x desea 
uO * GET % * x 
¥AGH——>%* EXPRESSION %*---> BOX 
*  % oe “ PUINTER * x 
xo * * soho 
SIH dak i get 
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* 
PHR356 * x 


mK 


PHR360 * 3 
* 
v 
PAR EO * * 


PHR370 
Te RO RHO i KR IK tea 
* * 
* * 
*ALLOW 13 BIT *---------- 
* “SUBSCRIPT x 
SRO OR ok a af ke kok ak ok aa 


PHR374 Vv 
FO Ao AIO AIO 20K 
*ERROR D4* 


5 


= ~TeSGBs ER . 


z * 
RO Rk OH RRR aK ako 


PHR378 v 
2 Rk ak Re ak Rok ake ok ae 
* % 
*  CCLLECT  * 
*SYMBOL TABLE * 
* ENTRY * 


2 Ree Rk I a ROR Ra 


RHR392 Vv 
FOR OR RC RK a BK 


3 
Ed 
* % 
* * 
* INCLUDE * 
- SUBSCRIPT 7 
Ot Rok he RC a 


eT 


PHR " PHR414 

% TEX 

E LEFT* * * 

DE ANDS—-~> Cox 
PNTR, * 

eer 

% 


RRR HD 


ca 
* 
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PHR414 PHR458 
FIO ROI a HOR Bok sok X SOR ICE SOR tok 
OK Es * aK * E 
* Ok * COMPUTE * x * 
*CO*-->* EXPRESSION * *D0 *-->*BACK UP_INPUT* 
x x * LENGTH * Ok * POINTER % 
om * a we * * 
JR IO RR RGR OK a akc ak SOR ORO IOR ROR IC ROK Rok a 
PHR418 Vv PHR460 Vv 
FORO IC HOR tok 3k ROR OR BOR i ak ak 
% * *DLOGICAL Al* 
& re Q-----= 
*PLACE IN MOVE* OI AGNOSE x 
* PARAMS ‘a * LOGICAL * 
% * EXPRESS * 
FOIOR IC ROR IOI a ROR aI kote a SOR ROI ROR a ROR Rk ak ak ak ake 
Vv 
PHR420 Vv PHR462 = * * 
FR AICI io fk ak fe ak x * 
*MSMOVE A3% % ¥YES 
X= =-2] -----= * % 
*MOVE EXPRESS x * IS THIS IN A xo - a 
= TO TABLE ‘ * TRUE LEG Pi * 
2 TO} i lok de kok tok * % 
* * 
* NO 
PHR430 v PHR468 * * PHR354 
2 I iS ok sogok ack * x 
x x * *NG 4K x 
* MARK END OF * * 1s IT on * 
* EXPRESSION * * FOLLOWED BY > AOX 
* WITH COMMA * * TRUE LEG * om * 
x * * % FO 
ROR RI ROI ROK ak aK aK * * 
Ea x 
* YES 
PHR440 Vv PHR470 
SERIO FOR IORI EO tt ak FIC ROR IO ROR IO ak ak ak 
* x pee x * 
* x * x INVE Ko 
*SAVE POINTER * +044-—>4 CONDI TTONAL * 
% x * SWITCH * 
* * Pee x x 
FOI ROR ICR ok ek i ae FCRIII Ra 28k ak ak kak ak 
PHR444 Vv PHR472 Vv 
FR RIOR OK RC OK SIR BR a BRI HO fog ak 
ek * * TOON PUL BO* 
OF * Hee a ee | Gan 
*C5%*-—->* GET RETURN * ‘ SLIDE "OVER * 
x * * * *QUESTION OR EX 
weak * * * * 
2 OR IOI OR dokak ak teak ake akc SACRA ak ROR a aK ak 
v 
PHR446 Vv PHR474 = * * 
JOR gO kk ak ak Foro ke a * * 
* * x *YES 
* LEAR x * 
* CONOITIONAL % DOLLAR SIGN 5 coatetenetata 0 
* WITCH * * 
* * * *x 
ORI HI ROR ACR I x x 
‘ * x OK ak 
*x NO x * 
---------- > AB * 
OK 
PHR336 
PHR450 PHR484 PHR444 
Vv OR HO a Ok ROK ak aC ak ak 
SOCIO ICR Ok i cei ok *ERROR D4* ROK aK 
x an 28------ * x 
* EXIT * : -CONEXPER- pee C5* | 
* EXPRESSC * * * * 
FRI IO RI a ka ka ae * * wok OK 
JCROIOI R I RC HOR OR ROK aha 
Q- een ere ial 
v 
PHR452 PHR488 = * * PHR354 
FOR ORO SRO ko fo kK 9k * * 
3K *ADVPUL BO * OK x *NO stk 
x O* a 15------ Kk ok Ok x Ok a 
peau et SLIDE OVER is *DB*> EXCLAMATION «> AQK 
COLCN x x OK MARK Ok * 
* oe * aK % * ae RC 
2 IC Ok a fog i aiotcic ak * * PHR470 
* * HOR 
* YES * a 
---<------- >* D4G* 
* x 
ROK 
Q~-~-------------- a) 
Y | 
PHR454 * * PHR492 Vv 
* x OR ORR ke a ai ake ak Chek ok 
* xYES *ADVPUL BC* laaiaatad 
* Hae st a ae 5------ x x C4 
* DOLLAR SIGN — *--------=----- >a CCLLECT x---> AC * 
*% * EXPRESSION * a 5 
x * * o A OK 
* * OLR ROR a acai de Rakai ah ok 
* * 40% 
* NO % * 
SSS eSesess>*-00% 
x x 
HICK 
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AR *INTEGERI A4x 
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a Ro ak ek kok a a ka 
¥ERROR 04% 
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* * 
BRO Re RK Re ee Re aK a 
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* *NO 
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* EXPRESS 
NUMBE 


PHR510 
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* * 
SR aD take tek tok ie ok 
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PHR 
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% ompR 
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EXPCNTRL 
RH 


em 
* D * 
eH 


PHR546 

FOI I A RoR gai a kkk 

als *ADVPUL Box 

x kee [5a 
£A2#——>4 ae ae rp bs 
CO * 

pre x 

Ta oo bk 


PHR548 Vv 
SOCIO HOI I doko ick 
aay * x 
ak x * 
EA? sone INDICAT 
* *WHERE W 
ene * 
IOI | 
Vv 
PHR5S2 J * * 
ak * 
x * * * 


*AG&> DCLLAR S#GN 1 ie ee’ 
x * 
we * * 


ATE 
E ARE ba 
eK 


% SRK 3k 


PHR556 Vv 
2 Re loko i dot ak as 


*xADVPUL BO* 


paler ene 
* SLIDE QVER * 
= CENT SIGN a4 


HOR AR RRR IO ok ae 2 ak ak kK 


PHR558 Vv 
3k ARI IR Rk ak 2 


*INTEGERI 


* N 
FR OH ROR RR aK ate ab eae 


Vv 
PERO SO. * * 
* *YES 
* x * 
% Fs IS IT ZERG " AGS 


% * era 
* % 


* Ok 
* NG 


PHR552 


i} 
=x 
D 
REHKHHHU 
* 6 #D 
x > OO 
* m> * 
# ZOO # 
# ACC # 
* nz 
% AMD #< 
e* SDHC 


PHR576 v 
aches sitet 
x ek 

*CREATE HUMBERT * * 

DEFINED ee Box 
* SWITCH * 
% oe 
JRO GICI RIOR i tok ak kk 


* yen 


CHART ABC: DFJPHRRAS 


DGS/CS PHRASE DICTIONARY MAINTENANCE ROUTINE 


PHRSEC 
ax 


5 
SO ROI EI OR tO tok 
ex * 
* * * % 
*BO#-->* GET TABLE * 
ek ® ENTRY x 
em * 
ROR ORR ROR OR I ROK ak 
PHR582 Vv 
eo Fe Re oi ake he af 2k a Xe a ae 
* cd 
* * 
%* SET SWITCH * 
* * 
* * 
ROR Rage ah OKC a ake ake 


Vv 
RHRS BG. * * 


* 
* *YES 
x x 
* PRESENT xs >=- 
* SETTING ZERO * 
a * 
* * 
* * 
* NO 
PHR5 €8 Vv PHR552 
FARR ARR HOR Ref ak a a 2 aK, 
x * sok ak 
* * * 
* SET SWITCH *> AG* 
* x 
* x x XK 
SR OR a ok a ge tk ak ako 
Q-----~---~-------0 
PHR5S4 Vv PHR552 
FRR ROR RR IRR AO 
* ERROR D4* ek Ok 
Mama = 2 Boa ak x x 
%* -=CENTERM- *---> A4% 
% * x x 
* * HOI 
ROI IRR RR Kk 
PHR5S8 v PHR644 
3 Rok a ICR HOR A ok 
ACALPHA Al* ae 
‘ EXPCNTRI = #---> Crs 
ASLIDE OVER Lex 
Naa 
Jobb na noni sot 
PHR606 
SCE BORO ORO IOI IOI OK 8k 
OK *ERROR D4%* 
x Ok a 28------ x 
*BO*X--D* = -EXPLFER- * 
x x x x 
HK * * 
FOI IOROR IOI A ROK 4k 
eae a is) 
PHR6C8 x * 4 PHR546 
* *YES eK 
x xk a 
* COMMA *> A2* 
* * 
* * Dred 
* x 
* * 
* NO 
Vv 
PHROL2 % * 4 PHR656 
* *YES XK 
* x Ok * 
* SEMICOLON *> DO* 
x * Ok * 
* x aK 2 
x * 
x * 
* NO 
PHR616 Vv 
FHI ICR A RRO I HOR aK a ak 
* x 
x x 
* INCREMENT *--=----~— 


“INPUT POINTERS 
FOCI ROR ROI A AR 30K 


BCS/CS PLAN SYSTEM FLOWCHARTS 


PHR620 
JOC ROIIOR Ing tok kK 
* * 


we % 
*SET SUBSCRIPT* 
* END * 


* x 
ROR ROR RRC RONG RK 


V 
PHR626 | * * 


*DARITH 


HOR RC RR RHO ROK OK 


Vv 
PHR634. * 
x * 
* *YES 
x * 
* PROPER END Ko------ 
* x 


* * 
x * 
% * 
* NG 
PHR 640 v 
AGI aOR tak 3k 40K IK 


PHR632 Vv 
FERC RC Rk ak aK a ak oak a 


xERROR D4 
#---=-28 


* ~SUBSER- * 
* * 


ax * 
OR ROK Ak a HO Rea ak ae ak 


PHR642 Vv 
ROR II ICR kok kK 
aon BO x 
* SLIDE OVER. * 
* RIGHT PAREN bs 
FIO IO RRR a Rg 


PHR644 V 
FAI ICR IG RRR 
* EXPRESSC Al* 


Ea ney 


ac T#-—>8 EXPCNTR4 - x 


*COLLECT EXPRE* 
Toa tate 


PHR546 

HK 

* 
*> A2* 
* * 

eK 


Vv 
PHR648 = * * 
Es aK 
* *YES 
* * 
% COMMA 
* 


v 
PHR652.— * * 
* * 
ak *xNO 
x 
* x SEMICOLON 


PHR606 
ARIK 
* 4 * 

*> Box 
x Ok * 
akok 


tok OK 
PHR656 


CHART ABC 


PHR656 
FIR AO I IOI AO tc 

atc * * 
x x * FINAL END, * 
*DO*-->* COLLECT * 
x * * INVALID EXP * 
4K * NUMBER % 
BRO I Raf ICR IO 


Vv 
RRO ROK BOR Kk aC a eae 


PHR664 
FOR ROCIO IOI II a AK 
aeRO * * 
Ok * x 
*D2 -->*GET NEXT EXP * 
x * *NUMBER SWITCH 
soko * * 
SEIOI GI IOI TOR AOI ROK Rok 


Vv 
PHROOS % * 
* *xNO 
* 
* Zs END OF WORD 


PHR679 Vv 
FR AR ae 3 he oak a aig ak oe ake 
* 


* 
*GET NEXT FULL*® 
* “WORD FROM 
x TABLE * 
* % 


RRR Ok ak Ok ok te Hook ak 


PHR674 v 
SR SO Rt tot ke ai ke ah akook 


Hee RH HK 
e# mh 
* am 
HHH HHH 


* 
Vv 
RH 


PHR680 Vv 
ARK OR Rokk i tok ak ok tok 
* * 
* COMPUTE EXP x 
*NO AND PLACE * 
*IN ERROR CODE* 


SR ROR AOR HR RHO RK ac ae 


PHR692 
ARK I 
x 


Vv 
PHROBA * * 
* *NO 
* 


EFIN x> AC *& 
RROR x oe Te 
eK He 


PHR690 Vv 
SC Re ae ic ik ake ae aie 3k ie 3K oe 
XERROR, 04% 
ww = 2 8 -- - * * 
x -CENTERED- a---3 x 
REFERENCED UN* x 


hk fib acted ei tolen 


PHR6O6 
Be ak 


are 


GHART ABC: QDFJPHRAS 
DCS/CS PHRASE DICTIONARY MAINTENANCE ROUTINE 


PHR692 ; 
ACRE AO ARR sO EO 
eae *x ERROR 04% 
KK hewn 29a x 
*AQ ~-># ~-CENTERR~ * 
«  * * DEFINED * 
#48 * ~ UNREFE * 
s. 
Vv 
* * PHR664 
* * 
* *NQ RAO 
* * % * 
* END OF TABLE *> D2 * 
x * 6% 
* x woke 
* * 
*  * RO Ot 
* YES *  * 
---==----- >* DO * 
* Le 
AHO 
PHR148 


COS/CS PLAN SYSTEM FLOWCHARTS CHART ABC 


COMPRESS 
atk JEG IACIO IOI IE ROKK 


= 
m 
Rp 

eH 


PHR71C Vv 
BO I I ROR iokob ak tok ako 


ER ESC Cas 


PHR 722 
2 a AR a a a Hook ae a 


SOD NSUE Als 


x SLIDE OVER z 
. COMMAND a 


Serre e rors Src 2 


PHR724 V 
SOI RIOR IK Rak Rak ak 


SALPHAT cl* 
ne ee 14---——~%« 
* WORKA * 
x * 


* * 
SSI CII IOI IOI II ICR 


Vv 
PHR728 | * * 


a 
* *YES 
* * 
% % DGUBLE QUOTE Komen 
* * 
% * 
* * 
* NO 
v 
PHR732 | * 7 PHR810 
* *NO ak 
x Ox x 
* COLON *> CO% 
x O% * 
* * a 
* * 
* * 
* YES 
PHRI36 Vv 
RRR RRO RA A A HO OK 
*ADVUSUP Al* 
Keanna] G-- == x 
* SLIDE Over + 
: COLON : 
FO ER REEEOREE 
PHR738 Vv 
JGR I Ik aia tok 2a kG 
* a tk 
* RACINT TO * * * 
* CCMPRESSED por BO* 
* PHRASE AREA * 
* x "eek 
AGIOS HOR Rak gata ic 


wk 


xe 
*B4GX--D¥* CHA 
x Ox * 


ak 


ChKART ABC: OFJPHRAS 


OCS/CS PHRASE DICTIONARY MAINTENANCE ROUTINE 


6 Re I a aK He RAC 


x 
x 
IN * 
* REGISTERS x 
3OROI ERC AR JOR IOIOK teak 


. ee 


vD 
=x 
n 


EER EL ESS 


5C 
TRH ROR LOR ROR a Xe Beak 


HRAHH 


CGLLECT 

CHARACTER 

FOI ROR FOR RC tok 
cO NEXT 


Li 

A 

3 | 
CTER x 
% 


FORO ROR OK 


PHR754 
Xb 


% * 
2 he RR Rk Rk pk 


PHR760 Vv 
EAST ESTEE SS 


CHECKSUM 


HHH HH 


* 
* 
x 
* 
* 
* 


2S kk ake ok teak ak kk 


Vv 
PHR7E2 ak * Pe PHR778 
x *NO ork 
* x Ok a 
* THIRD LETTER *> C1* 
* * * 
% * Fetok 


PHR766 Vv 

JOR pa RR ka ak dak atcakeak 
* % 
*PLACE 3 CHAR * 
*E ty CHK SUM*% 
*IN COMPRESSED* 
* PHRASE * 
ROR AK i 
v 


PHR768 * * ‘ PHR776 
2 % *NO 3 IK 

* CV 
* 


PHRT72 V PHR776 
DR A RC I A RK OK I 

* eK 
* COMPUTE * * x 
* PHRASE ¥---> CO* 
* CHECKSUM #0 
* 


* 


% ek 
ROR BORO Re a aK i a 


OOS/GS PLAN SYSTEM FLOWCHARTS 


* 
#co#--># CLEAR NeEXxT 


PHR776 


xCQR-—> 
a 


PHR776 
ROR ROR a aK Ok 
* 


: 
x 
* 
* “WORD HOLE * 
* * 
TOR RR FR HO he fe fe 


PHR778 V 
ARO SOTO RR AH RO I 
poseballs, ci* 
ec1e-—>4 COMPRESI =e, 


RTEST FOR ALPH* 
Meerre rrr ere 


Vv 
PHR 786. * * PHRT54 


x KYES kK 
x 


* * 

*> B4x* 

k kk 
ok C7 eR 


PHR792 
SOR ROR 8 RRR SOR IR i ake 


ppb A3* 


x SUPPRESS x 
ri BLANKS * 


FOROR OK ROR ROR RK a ak ok 


PHR794 v 
2 OR toi fol tok ak 


pis vaaal Pa Gr 


x COMPRE SO - x 
STEST FOR ENT - 


Re hk ok a a a HK oe 


Vv 
PHR798 * * 
x 


* *YES 
* COMMA ko------ 0 
% * 
* * 
* x 
* NO 
Vv 
PHR802 * * 
* * 
* *NO 
* 
* SIMICGLON &-----+ Q 
% * 
* * 
x * 
* YES 
K{--- - ra) 
v 
PHR806 * * 
* * 
* *NO 
* Vv 
* ANY PHRASE *------- Qa 
COLLECTED x 
* * 
x * 
* * 
* YES 
PHR808 | 
2A RRO SOCK XI OK 
% 
* EXIT * 
%* COMPRESS * 
SEIS FR ak ke tokaioak 
i na ea 
PHR810 Vv ABORTEND 
FRO Rok doi ake ak hea ae af a ak 
gonees D4* ae 
ae 28------* * 
INPUTER +--> D2 * 
* Lk 
* * HOR 
SIO ROR OR Rak tk ke ak 
CHART ABC 


om 
Dede’ 
bur 
OO2rG 
ozma 
POM 
Zona 
AnD 
“Or 
oz 


DLOGICAL 
HK Sa OI IOR OI NOR aa te ak 


eK & 
¥*AL >% ENTER 
ICAL 


* OK 
aie * eR TO AOR CR 


eReH 


DLGG 
aE 


PHR830 Vv 
Fhe ae he kg 2 ae aK a a a ae a 
x 
* 
* 


HH 


* CLEAR ERROR 
SwlTCH 


FORO ROK Ra ai a 2 a oc 


eH 


* 


Koa -- r---0 


PHR832 Vv 
SOR ROR ia ok ak a a ak ak a ak 


*ADVPUL BO? 


Komen e | G5 


eK 
* * 
bia erat oe) NEXT CHARS 


ee ¢ : 


SSO IOIOI I a Fak lok a 


PHR834 * 
* 


NOT 


Vv 
* PHR910 


aK 

* * 
*> C3* 
* 

esd 


PHR838 
* 


* 


PHR848 v 
Re ah A ea a oe ake ok 


*ACVSUP Al* 


Hoa 15 - 
GET NEXT * 
CHARACTER * 


* 
DOOR ie BH Ra A 2 a a a 


ae 
x 4 
HAT %——>% 
x 


* 
ed * 


* PHR8E0 


WK 


PHR850 
™ 


*  * 

*> BO* 
* * 

a eo 


PHR 856 Vv 
GRC III a Ak ak 


*ERROR 04* 


Bow 


Til Geer- 


PHR9O4 


KK 

* * 

H--> Cle 

* x x 4 

* * eee 
eRe a ate a aR a RC aK aK a 


CHART ABC: DFUJPHRAS 
NCS/CS PHRASE DICTIONAKY 


4A LNTENANCE ROUTINE 


%* * 
PHR860 * * PHR9O0O * * PHRII6 
* * * * 
ax a aN) OK * ENO 9 4k 
* ok * * mK OO KOK * 
*BO*x> EBCCIC LEFT #--~—---- 0 C0*> INTERNAL SET *> AQ * 
x ok PAREN * *  * % OF PARENS * * 11% 
Ded * * Om * * OR KOK 
% * * * 
+ * * * 
* YES * YES 
PHRBE4S 7 PHR 848 PHRIO4 Vv 
FRR OI ICR ACR AOI I aa AERESTE RTE AH ENS 
* * eK x * 
* INCREMENT = * * * x * 
*PAREN CNTR BY%---> AT* #c14-—> 4RES TORE INPUT# 
* 1 * * * * PGINTERS * 
* x OK er * * 
ACR te tok tok a ak OIC IR ROI Ra a HOIGK ak 
Bt ee a ee ee 
V 
PHR86B8 *¥ PHR904 PHR906 Vv PHR832 
* * JR ROR foto Oka ak ak ak ak 
* AYES RX * * HK 
x * *« * * * x 
* SEMICOLON *> C1l* *COQUNT PARENS *---> A4* 
x Ok * * * * 
* x RK * * HO K 
* * JRO Rot ROR i R kek atoak ak 
* * 
| NO 
v 
PHRE72 * * PHR 900 PHR910 
* 2G dt sok HR 
* BYES kK ua poste AL* 
* * *« Hwee ee ] Ga ee x 
* LESS THAN *> CO# ac38-->s BLogic9 4-------~- 0 
* SYMBOL xk * 
* * eR ee : * 
* * 2 OR elk ok deka de ic 
% * 
* NO 
| G 
Vv * 
PHR876 *&  & PHR900 PHRO16, *& * 
* * * * 
* ¥YES KKK * *NO 
* x * * 
* GREATER THAN *> CO* * EBCOIC LEFT eee 
SYMBOL ed * PAREN 
x RK 
* * * * 
* * x * 
%* NO * YES 
PHR880 * * PHR9O00 PHR920 Vv 
* SSO toto ao ak ak 
x YES ee *DAR ITH D6* 
* x * *&-----] | ---~-= * 
% EQUAL SIGN *> COF * PASSOVER * 
* * & + * SUBSCRIPT * 
% * eR * EXPRE * 
* * RIC aI a ak ae ae ae 
* * 
* NO 
PHRBBG * * PHRIOCO PHROZ2 | * * ‘ 
* *YES KK * *YES 
* x x * * * 
* POUND SIGN *> CO* * ~~ EBCDIC RIGHT ---- i) 
* % * PAREN 
* * XO x 
x * * * 
* * * * 
* NO * NO 
PHR888 * * PHR 848 PHR926 v PHR956 
* x FORO ICRC RC HOI ICR a 
* *NO Foe ERROR, D4 * ako 
54 * * * Ko we 7 Bw * x 
* EBCOIC RIGHT *> AT* * ~ SUBS ER- Hie5 05% 
PAREN * & * * * * * 
a * xk x * RK 
x * FOR ORR gag hk aK 
x * 
* YES 
| Qe- ee een 
Y | 
PHR8S2— * * PHR904 PHR930 v 
* * AOR ICICI I I XI a ok 
* xNO He Aah *ADVPUL Bo 
% x & | a cr coe 15------ 
* manna A SET *> C1* tc * Lupe SKIP OVER x 
OF PARENS . * * * BRIGHT PARENA # 
x eK fae 
* * Peer er 
* * 
* YES 
< ee te a ee 
PHR896 v PHR&48 PHR9O32— * % PHR832 
2 ck took i tok * 
* * HK OK * #YES ax 
* * x * x oe Ok xk * 
* JOECREMENT #---> ATH C9. * OR *> AG* 
* RIGHT PAREN : * x Ok Ok * % 
* een ako * * eK 
Pea % * 
x * ke 
* NO * * 
------~--->* DO* 
* x 
Hetok 
OGS/CS PLAN SYSTEM FLOWCHARTS CHART ABC 





* 
PHR936 0 * Ka PHRE32 
% * 
He * HYVES CK 
* * % xe big me 
*DO *> AND *> Ade 
* x x * * * 
eK * bd ae 
* * 
* % 
* NO 
PHRO4Q * * 
4 * 
% *NO 
* TEST FOR % 
* LEVEL OF kneence Q 
* PARENS * 
* * 
* %* 
x % 
* YES 
PHRO4G4 = * * 
* * 
x *NO 
a x 
* EBCDIC RIGHT aeSseS n 
PAREN % 
x bd 
* % 
cd * 
* YES 
PHR9I43 Vv PHROAA 
FOC IOC ROR I ak ie ak ee 
* Ke Wo 
* % # e 
x QOECREMENT *---> Cex 
% CNTR 2 * * 
He * HK He 
FORO ROK ROR RC CK A aie 
SSS Sa SSS SS | SSS ser } 
PHR952 Vv 
BCR I OR RIK a ae a ie 
an SERROR 3 Day 
9404 > -EXPFER- * 
% 
oe 7 2 
SR a 2K a eC ae ake ak oe ak hook 
PHR956 Vv 
FE ROR ROK Hae ek Re tok 
4k * a 
x * * * 
*D5%*=->* TURN ON ERROR Ed 
arte * LOGGED *% 
FEI IO ICICI ISI ICICI 
Ror esses is) 
PHR958 
eRe Re ea ae ke ak eK ie 
* id 
* * 
* GET RETURN * 
* ADDRESS a 
* % 
REA RC aK a aK ae ROK aK ak 2 akc ake ake 
PHR960 * * PHR986 
* * 
% *YES ox 
%* a * 
* COMMA *> AG * 
* % LOX 
x * Heo HOH 
* * 
* * 
* NO 
BHR OS: * * PHR986 
% aes aad 
* % 
* — QUESTION MARK eke Se 
* Ok 10k 
* x 3 OK 
% ad 
* * 
%* NO 
0 
PHRIG8. * * fe PHR986 
* YES xa x 
a * x 
* EXCLAMATION “> AG % 
MARK x oe 10% 
* bid eK 
* * 
* * eee ae 
* NO x Pa 
ea ao >* AC * 
* 10% 
He Rok ok 


* 
PHRO72 * x 
x rn 


totOK * *YES 
Pa % 
*AQ % SEMICOLON iow meen on am 18) 
x € * * 
tok * x 
% % 
* * 
* NO 


v 
PHRST76 * % 


* xYES 
% * 
* POUND SIGN fomnn——> 
* * 
* o* 
% * 
* x 
* NO 


v 
BARBED * * 


* 
* *YES 
* x 
% EQUAL SIGN Kanteen > 
* * 
% x 
ve * 
a x 
* NO 
Vv 
PHR984 %* x 
* * 
7 *NO 
* x 
* COLON a Cc 
* * 
* * 
* * 
* * 
* YES 
Career meee 
PHR986 § 
MOK SER RO AO ROK a AK a SOR aK a 
* Ok * 
*A4G ># EXIT * 
* * & DLOGICAL * 
ttOK ORO RIK 3 ke Bk ado toa 
| a arnt g) 
Vv 
PHROBB 0K PHRO30 
* KYES ate 
* Ro x 
% ERROR LOGGED *> CB * 
* *  % O% 
* % Se kotor 
* x 
* % AokIOK 
* NO x ok 
pcucnteanataraetad -=>* D4 
* ORK 
HERE 
PHR9O52 


CHART ABC: DFJPHRAS 


DGS/CS PHRASE DICTIGNARY MAINTENANCE ROUTINE 


OGS/CS PLAN SYSTEM FLOWCHARTS 


CHART ABC 


10 


GHART ABC: DFJPHRAS 
DGS/CS PHRASE DICTIONARY MAIN 


TENANCE ROUTINE 


11 


* * * 
PHR1020 | * * PHR1O72 PHR1062 | * * rs PHR1098 | * * % PHRIZ32 
ee * *NO em a ek * *NO ROK x *YES iki 
RELATIONAL * * * * * * * * * * *x * * 
EXPRESSIEN *BO*> EBCDIC RIGHT *> C3* *CO*> BOTH SCANS kaos *DO*> EXCLAMATION «> co” ie 
OLAGNOSTIC x e PAREN * * * * AGREE x *& * MARK * & Ox 
SCAN %k * * ee em * x ek * x Pre ea 
* * * * * * 
x x * * * * 
* YES * YES * NO 
v 
DRELATS PHR1I024 Vv PHR1066 Vv PHR1102— * * PHR932 
OI HO aati ok Ok fk FRC RRO Ro AK Ck * * 
2 RIO i ad a Regi ak *ADVPUL BO* *DARITH 06% * AYES dt 
* * fewer [| 5---- * Mon —~= ] ]---- = * x OK * 
* ENTER % * GET NEXT % *00 RIGHT SIbe* * QUESTION MARK *#> C9 & 
* DREL * * CHARACTER * * * * x Ox 
aK Be ee eeannes x * * * x * se RK IK 
Soto or oo tok ne Ak GIO IOI IRE XR kK a * * 
% * 
%* NO 
v v v 
PHRI96 Vv PHR1OZE * * PHR1O68 * * PHR1114 PHR1106, * x 
ERAGE SAE ARAL SSS * * * * * 
aa * ee * *NO HK * YES eK * *xYES 
* * : x k  * x * kk xk * * x 
eA2 jo->ksave Reta * *B2*> TEST OPERATOR s eateateateatetee G *C2*> EBCOIC RIGHT *> 04% * EBCOIC RIGHT k----- -- ie) 
PERATOR = * *  * EQUAL * eK Ok PAREN x ko * PAREN * 
res ‘ * ok ok * * tO * Sf 
BO IO ka ak * Kk * * % * 
* * * * * * 
* YES * NO * NO 
| SSS SSS SSS Ss > | Kor nr 0 
Vv 
PHR998 7 PHRIO30  * = * PHR1972 Vv PHRL110 Vv PHR1C7$ 
OR Ro Rak a x a kk ak x x 32OR KO AOI gO ici AICI ICICI ICR ak ak 
*ADVPUL BO* * *YES % *ERROR D4* ADVPUL BO* HK 
a * * * *  * keene 2B anne KT ne ee x * 
* GET NEXT * * EQUAL SIGN Hon ---- oxc3¥-->* -RELATER~ * ‘ GET ‘NEXT 4~--> C4* 
* CHARACTER * * * x * * * * * * * 
x * * * ww * * x * ed 
OR AH a ARK 7 a ak x a SI to ie aot ak ok i ak Bek lO IG ok ge ak ok ak kok 
* * 
* NO 
I 
Q~--~---~~+--+----- 0 
v v Vv 
PHR1000, * = * PHRi058 PHR1034 * #* PHR1072 PHRLOT6 * = * PHR1114 v PHR932 
Eo * * * * * FO IGE ok tak de toak dak ae 
x *NO eK * *NO eK we * *NO 30K XADVPUL . BCx Aa 
* * * * xR * * * & x % kee [5 * x 
* DQUBLE QUOTE *> 8E* * POUND SIGN *> C3* *C4*> DOUBLE QUOTE KS = o#048-—> SKIP OVER ames co * 
x x * * x & * * kk * * é RIGHT PAREN * % OF 
x * HK * * REX ak * x ee * Fe RO 
ix * * = x * pre ee pean es 
x * * * * * 
* YES * YES * YES 
€22---—---------- G <--------------+ 
PHR1004 Vv PHR1LO38 Vv PHR1080 Vv 
3 ol do kack ak SPAKE EK EEK Se ao RK eo 
% * *ADVSUP Al* * * 
* * sapedeaneneteel 15-~-----~* * * ARITHMETIC 
* BACKUP * * GET NEXT * *GET NEXT CHAR* EXPRESSION 
* POINTER * * * * OF LITERAL * DIAGNOSTIC 
¥ * * x * x SCAN 
Se go a ao fk ak ROK JOR Og rtok RoR FRR ROR ROK CR a 
‘ 
Vv Vv 
PHR1006 Vv PHRIO4O * = * PHR1O72 PHRIO82 * * PHR932 DARITH 
HORI RR RR RR ACER * a * * 
*AAQVPUL BO* * *NO ok * *YES RK RE A RRO a ak tok ie ak ok xO 
Kw] 5 * x OX x * x % x * * x 
* GET NEXT * * DOUBLE QUOTE *> C3* * SEMICOLON *> C9 *11¥*06 >* ENTER * 
* CHARACTER * * * * * * * oe * * * DARITH * 
* * * * Kx * * FORK kK MR Me a ak aK ak ak ae ok a ak ok 
Se a aR ik x * * x 
* x * * 
* YES | NO 
Vv 
PHR1008 Vv PHR1072 PHR1054 Vv PHR1068 PHRLO86 * = * PHR1128 Vv 
Se CO a rok FRO OR of Roatan a ak ok * * BGR a ik kak ak aaa ak ok 
*DALPHA Al* see * ADWPUL BOx 4H * *NO 40K * * 
re ne * * Kew 5~—-----—* * * * * x OK * * 
* *&6 — TEST *---> C3% * GET TO He-—-> C2* * DOUBLE QUOTE sata *O7 -->*SET UP_INPUT * 
* FOR ALPHA * * x * RPARENA ne * rr eo REG * 
* * ORK * x ke * * SK * * 
SC KR ROR AOR IK SII Rake doa a io * x BCI Rok a Ok a tot 
* * 
* YES 
< ee a ee ee ee 
* v 
PHR1O14 * * PHR1026 PFR1058 PHR1O90. * * PHR932 PHR1130 
* * a OR OK ok ak tok * Ja ORR i tof k ik kok 
* *NO aHH _" * % * *YES ats * * 
* * OF * * * x * * * 
* EBCOIC LEFT *> B2* fous-—>4 RES * * COMMA * ae * * CLEAR PAREN * 
x PAREN x % * * * CNTR * 
* see a : * * % sae % 
% * ei ia a Ra aie a te aie a a * * BC OR RO 2k RIK Hak 
* * * * 
* YES * NO 
Vv 
PHR1OTS PHR1LO6C V PHR1094 = * * PHR932 PHR1132 Vv 
ERO IK a tot kok a eR Me ok * * SEO a a io Rok a kato 
*DARITH bee, Set *CARITH Dox tm * *YES kik ne *ADVPUL BO soa 
———s \i-—----- * Heme | | ------  * * x x Oe * aS es * * 
#00 SUBSCRIPT. t+) Bos x00 LEFT SIDE #---> cos x SEMICQLON *> C9 * #09 "Lape SKIP OVER *--=> AC & 
* x % Ox * OR UNARY SIGN &  & 12% 
H Pt Tee” * x eee” * x soko wKe * ee He ae 
Stok tok fork a dak SOP OR oka oe x * Joo a doloti an 
* * HK 
* NO * * 
worn -- >* DOx 
sok 
DCS/CS PLAN SYSTEM FLOWCHARTS CHART ABC 


PHR1134 * 
* 


atk * 
a 
*AQ * 

* OOK 
aK 


* * 


PHR1138 
* 
* 


EBCDIC PLUS 


* 


* 


: Vv 
PHR1142, * 
* 


* 
* 


ie) 


PHR1L146 
Je RR CHOIR RIOR 


40k *ADVPUL BO* 
NG cet ed eaten 


shoe te SKIP QVER * 
% Pa UNARY SIGN 3 


et 
Fk sera daicki totes 


PHR1148 * 
* 


x 
EBCDIC LEFT 
PAREN 


PHR1178 
YES | tok% 

a 

*> B2* 

rn 
aetok 


2k 


* % 


PHRL152 | PHR1178 


PHR1156 Vv 
FE RK OK AOR ROR Ake 


*DAL PHA 
a 


14 
DARITH3 ~ * 
* TEST FOR x 
% ALPHA * 
FIC IOI FoR OK RK i 


PHR1160 v 
Je a a a a 2 8K Re aK a ke ak 


SCOLNUMT 


PHR1164 
FR HOR ROR te ab ak ada ak ak 2k ac 


; PEReOR. D4%* 


% * G--=--— 
¥Agt-->* -EXPRER-  & 
xk # * 
eK 


Bt 





* * 
BRR eR aR AK aE CE a 


PHR1168 J 
weet FRR AI ak aha Rea plea i ok 


x  * 
#AQ ># EXIT 

* % *  DARITH 

eax SRR OR I a aR ak A aR A a a 


HHH 


CHART ABC: ODFJPHRAS 


00S/0S PHRASE DICTIONARY MAINTENANCE ROUTINE 


* 


x 
Pr 


PHR1170 | * * 7 PHR1206 * PHR1146 
* *YES eK x AYES 4K 
* * Ok Ok x x 
* FBCDIE LEFT ke O*CO*> ASTERISK *#> A3B* 
PAREN * * kK x x OK * 
* % eX cS * IK 
1 % * * 
* * * * 
| NG * NO 
Vv 
PHRLI74 = = * * “ PHR1210 % * ‘ PHR1146 
x *NO * KYES OK 
* * x * 
% 8CD LEFT Kae mm * SLASH *> AB* 
x PAREN * * * 
x x Ok * aK 
* * * * 
% * * * 
* YES * NO 
€or terre nee 
PHR1178 Vv PHR1132 PHR1214 * * PHR1182 
SO IRCA IOI IO dofok ok * 
mae * % eK * KYES ke 
x * * * * x OK x 
#828-2>4 INCREMENT *---> DO * * INNER NEST *x> B3* 
x * PAREN CNTR * * 11* xe * 
ar) x * Xk KOK * * ek 
JGR IDI IO ok kK x SS 
* * Ae Xe xtc 
* NO * * 
aa >* AQ* 
* * 
OK A 
PHR1168 
PHR1182 * * PHR1220 
* * FSR a aI OK aK 
ak * *YES * * 
Se * * * 
*B3*> EBCOIC RIGHT Hea 0 *SAVE POINTER * 
* KO PAREN * * * 
me * * * * 
* * JEIOR RR 2k a tO RR ii aK 
x x 
* NO 
PHR1186 | % * ¢ PHR1164 DARI THX ¥ 
* *NQ eke ak SKK Ae IOI ROR a ke gok 2k kak ak ak 
* * % x ok Ok * 
* BCD RIGHT *> AB* ae >* ENTER * 
% PAREN * * % &* DARITHX * 
x a He ake FERIA ROR HOO AK tee 
x x 
x * 
* YES 
< ee ee ew ere = 
PHR1190 v PHR1222 v 
3 OR OR piok do 2K Rolo sok aaiokekc 
* * OOVEUL BO* 
* Es soe 1 5—--——-—* 
* DECREMENT * * GET OVER * 
= PAREN CNTR : ; EQUALS = 
FER RR i a i oak atte ak ak 23 Roti doi ic koiokk 
PHR1192 v PHR1224 * * 
(ROI I lok iok aa 2k x % 
*ADVSUP Al* * *YES 
SS ee * x 
* SLIDE OVER * * MINUS Keene 
* RAREN * 
* ca * * 
SO ORI BOR aR cto a 93k * * 
* x 
* NO 
< ee ee a ae ee ae ee | 
PHR1194 * sd PHR1146 PHR1228 | * * e 
% YES aK * *YES 
* * x x 
* EBCDIC PLUS x me: A3% * EBCDIC PLUS Kem 
* * ROK * x 
x * * * 
% % * * 
* NO * NO 
Vv 
PHR1198 * * " PHRL146 PHR1232 * * PHR1256 
* HYES Kx x xNO sok 
* * cf * xk * 
* BCD PLUS *> AB* * i BCD PLUS a *> D4* 
* * eK * * aR 
* * * * 
* % * * 
* NO * YES 
q€-~ + = + 
PHR1202. * * PHR1146 PHR1236 v 
% RRR a a RoR a eke ak 
% *YES xX *ADV PUL Bo ee 
ok Ra a a 15----=-— * 
* MINUS *> AZ* * GETNEXT *--> Dox 
* x * x * 
* * 4K x rel 
* * Feo noe Ce 
* % 5K 
* NO x * 
w-teee--n- >* CO* 
HK 
DOS/GS PLAN SYSTEM FLOWCHARTS CHART ABC 
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x 
PHR1238 * * ss PHR1128 
# * HY ES tokk 
x Ok Ok OK Xx 
*DO*> EBCCIC LEFT *> D7 * 
ek Ok PAREN «oe Lx 
ok * * RKO 
x * 
* * 
* NO 
PHR1242 0% PHRL128 
* YES tok akok 
x OK 
* BCD LEFT *> O07 * 
PAREN * * LL* 
* * HK HK 
x x 
* * 
* NO 
PHR1246 Vv 
Ba kok ao tek ke sk ak ak tox 
ieloiina PS C1 
*—-DARITH- 2 - x 
: TEST FOR AL : 
FRO I tofak dak ke tok 
PHR1250 V PHR1168 
2 RII OR Soi a sok gO 
pacpebeshns ph ALS otk 
*DARITHS 2 — ae Aox 
* TEST FOR NU * * 
* wen 
FeO I IEEE 
Ed 
PHR1256, * = * 
* * 
x x *YES 
x Ok ox * 
*D4%> QUOTE ¥------- 0 
a 
ax * * 
* * 
x * 
* NO 
PHR1260. * * 
* * 
x *YES 
* 
* ATSIGN a------- > 
* * 
* % 
* * 
* NO 
PHR1264, * PHR1128 
* eNO ROK 
* x ok 
* DOUBLE QUOTE *> D7 * 
* a owe LPH 
* * KK 
* * 
* * 
* YES 
Racoon senna en G 
PHR1268 v 
+ dadethdiainiaiaibiiadaie’ 
x 
* z 
* GET INPUT * 
x POINTER : 
BORIC ROR AK Rak a ek a Rak 
PHR1270 Vv 
FRO RO OR IDR dota ak fee 
2K * * 
x & * INCREMENT * 
*DB —->*INPUT POINTER* 
* * BY 1 % 
HACK * * 
FARR IOI aOR a a aK ak ak ak 
PHR1272 | * * PHR1288 
x *YES tobbok 
xO % 
* SEMICOLON *> AZ % 
* ok 13% 
* * eR 
x * 
* * sek 
* NO * x 
ween anno >* AC * 
* 13% 
Prot eg 


CHART ABC: DFJPLRAS 
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* 


PHR1276 | % * F. PHR1270 
Hk * *NO he 
x ok x kk 
*AO * INPUT # WORK *> DS * 
* ek * % 12% 
RK * % MOR 
* * 
* %* 
* YES 
PHRi282 
SOR Ra Rea a oe ae ae ae ke ae 
*ADVPUL BO* 
Hone — 1 5------ * 
* GET NEXT # 
4 * 
* * 
GIO BIR HOI AK gk dk 
V 
PHR1286 | * * " PHR1168 
* HYES 48x 
* x ok 
* WORKA ZERO *> AD * 
* * & 12% 
% * Hm AK 
* ® 
% % 
* NO 
PHR1288 v PHR1168 
JGR I Ang dak dt a 
#4 *ERROR D4% Rate 
* ¥——--- 28——----# % * 
#03 ~=>* = -LITER~ 9 -a-> AD * 
a ee *  & 12% 
ik * Ok 
Ra I a a ah ae 
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ar 

mo 
Nar 
caD> 
orm 
m2 


DALPHA 
ea JOR IR ORR Rk cake kc a aC 2 


uv 
= 
RP 
e 
xO 


4 Vv 
SR I IORI I HOR IOI 


HHHHREAW 
* 10 


PHR1308 Vv 
BS AR ROR I Ha ae 
aaa cle 
x ~DALPHI- Is * 
*THIS A SYMBO . 


Pd 
OR OR ACK OK KO a 


PHR1314 


v 
x SOR I AOR AOR Ce gOR Hoke a 
5 
palit s EXIT 
* ok DALPHA 
9% GIO RO tk 


PHR1316 Vv 
FGI RAK 2 IO 
xk x 
x x * 
SAG S24 SAVE FIR6T 
‘ CHARACTER 
Fei Aidt 


eee 


Keke eH 


XK 


PHR1L 


Vv 
PHR1320 = * * 
% * 


* *NO 
ak 
* SUBSCRIPT 
OPERAND 
* x 
a * 
a * 
| YES 
PHR1328 V 
Re ah a a aie ak a ake a eK ea, 
oe 
* INCREMENT 
*INPUT POINT 
* BY 2 
TR RO 2a ic ah ae ak a 2k 


* 
* 
x 


tH 
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x 
PHR1330 * % z PHR1316 
3K * AYES RH 
* * * * * * 
*BOXx> SYMBOL START *x> Ao* ALPHABETIC 
x eK WITH @Ed x % * TEST 
OK * * 2K 
x * 
* x 2a 
* NO * x 
maaan >* BT* 
Reed 
PHR1354 
PHR1336 ALPHAT 
[GCI ROK ORR ROK aK aK a 
* * eH FER OR rok ak kt i 
* INDICATE * Mk ok * 
*SYMBCL LGNGER % *C1l >* ENTER * 
x THAN 1 * * %* &  ALPHAT * 
* CHARACTER x sok FCO I ICIS ERC ACE ak 
FE RCE ae RC RRKOK 2 2 
| Vv 
PHR1328 V PHR1372 * * 
SR OOK i kok ak 0k * * 
HK * * * *YES 
% * COUNT * * * 
*B2%-—->* SIGNIFICANT * % LOWER THAN | ¥----=-- 
* %* CHARACTERS %* * aAa * 
a% x x * 
ROR IIR I ROR ak x x 
* * 
| NO 
Vv Vv 
PHR1340 * % PHR1376 * 
x * x * 
Fe % *NO * *YES 
* SYMBOL OVER 3 Keen 0 x NO HIGHER  —-®&-----+ fa] 
* CHARACTERS * THAN ala * 
* * x x 
* * x * 
* * * * 
* YES * NO 
Vv 
PHR134 v PHR1380 * * 
x frees dato tok ¥ * 
x * % *YES 
* BACKUP TQ * * * 
* THIRD * * LOWER THAN — ¥-~----— > 
* CHARACTER * * aJe@ * 
* * % * 
JAR IORI URI ox * * 
x * 
| NO 
v 
PHR1350 v PHR1384 * * PHR1396 
Sa a IR i ak ak HK * * 
*PULADY 83% x YES KK 
-----15------ x xO * 
’ PULL DOWN x % NG HIGHER *x> C8* 
* OVER THIRD * x THAN aRa x * 
* CHA * x * XK 
SR I I a OK $0 2K 20k * * 
* * 
* NO 
€2--- 2 = (a) 
v 
PHR.13&2 Vv PHR1388 * 
FB api OK ak tok 4k * % 
* ed * *YES 
x * x 
* [LNCREMENT  * Bo LOWER THAN 9 *=-----= 
*POINTER BY 1 * % asa 
* * * * 
FOR Og ROK ROK HK * * 
% * 
* NO 
v 
PHR1354 v PHRL392 * * 
FOR $k A ROR A Ok i ae 2K * 
Ps * AL PHAT C1* *YES 
* Heo 1 4-+- = a x 
#8 74-940 ALPHA = 1S * HIGHER THAN = *------~— 
sas NEXT. CHAR A : a aza 
Se ask aekscd ott ok * * 
* * 
* NO 
; eerie enhance ie) 
v 
PHR1358 * x PHR1314 PHR1396 V 
* * FIC IR ROR a CK a 
* *NO XK Rage * * 
* xO * * * 
* CHARACTER dE@ *> AS5* icox—># pent MODIFY * 
* x & * ETURN REG * 
% % SHE ine i * 
x * FRO IOI RE Ra RIO IC 
* * 
* YES 
g£------~--------- 3) 
PHR1364 V PHR1314 PHR1398 
OR IR kak a ACR IOR Yea ak ak ak 
*ERROR 04* OK ak JOC ROIO IO foto ic ak 
a 2 8------ * * x x * 
x -ESYMER-- x--—=> ADS* * EXIT * 
x * * * *  ALPHAT * 
* * 2 FIG ORR ka ok Xk ak 
SOR ROR OR RK gk ak ako ak ak a 
DGS/OS PLAN SYSTEM FLOWCHARTS CHART ABC 
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ek 
* 
*A3 
* 


bated 


ADVANCE TO 
NEXT 
CHARACTER 


ADVSUP 


BR a a eke a a a 


* 
D> 
#0 
He 
Bam) 
#S 


PHRL 


tr 
HN 


HHH HHH ED 


* 
* 
* 2H 


* Im 
e RA 


SUPADV 


ENTER 


Fe Fa ER ROR AK 


2) 
# SZ 
*# Om 
+ Ax 
* aa 


ca 


Bp 


v 
erreer eres. 


WD BK tok kk a 


x Ok 
>* 
OO 


v 
PHR1416. * 
* 


* 


* 


x 
* BLANK 
* 


Vv 
Pret rer tres fot 2 


Vv 
FOR OR A CR 
EXIT 


* 


x 
% RETURN 
ROR 


* 
* 
* 


3 
% 
* 


* 
* 


CFART ABC: OFJPHRAS 
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ACVPUL 
ek aOR tok ogo 
Se * 
*BO >* ENTER * KEYWORD 
* * * ADVPUL * PROCESSING 
HK SOC OR A 
PHR1434 Vv VERBY 
RoR OR FoR OR fot 
* * 3 HOR a a OR yok aa a 
* * * * 
* GET NEXT % * ENTER * 
* CHARACTER * * VERBY * 
* * RR IRR ga kk 2K i 
SOO tomo roi fe ak 
PHR1484 v 
SE OR RO tok Fok kok 
x * 
* * 
PULL DOWN * PUT VERB * 
BLANKS STABLE ADDRESS * 
FIR a 2k CR aOR 
RULALYV PHR1486 Vv 
BR Ro kak ek 
*#% SO Oe OR ok atok & Fok x * 
*  K * * * 
¥B3 >* ENTER * *TURN ON VERB * 
* PULADV * SWITCH * 
KK SOR AO ROR RK * 
2 tok detok dak ia a 
Keren nnn e = 0 
v Vv 
PHR1438 * * PHR1488 * % 
* * * * 
* *YES * *YES 
* * * * 
ee BLANK #------- 0 * COMMA Kaeen nn 
* * * * 
x * * * 
* * * * 
* NO * NO 
v 
PHR1440 PHR1492 * * PHR1L522 
ROO Hoa Rok ak * *NO soe 
* * x * * x 
* EXIT * * SEMICGLON *> DL* 
* PULACV * * * ok 
Fea aR RO AO a OK * * REE 
* * 
* * 
* YES 
{ pone em Kote o n-ne 
PHR1446 Vv PHR1496 Vv 
RR ER EK EE SOO RR IR Xe a a 
* * KKK * * 
*COMPUTE SIZE * * * * * 
*CF IMAGE LEFT* *C6 -->* SET EXIT * 
* FOR MOVE * x & * * 
* * 2 MOK * * 
$08 OK KBR ER aK FER HOR a 2 ROK 
Vv 
PHR1454 Vv PHR1500 * * ADVSUP 
3 tok tok tok totok to x * 
* x eK * HYES kak 
* * * * * * * * 
* PULL DOWN ¥* *CT*> COMMA *> AL* 
*CVERLAY BLANK* + * & * * 
* % ek * * ee 
eo RR aoe a FORK ak * * 
* * 
* NO 
v 
PHRA4EO v PHR1504 * * PHR112 
JI Rok dik * 
* * * YES sok 
* DECREMENT * He * 
* PGINTER [Q_ ¥*----~-~~-— * SEMICGLON *> Bo * 
*BEGINNING OF * ae Ad 
* INPUT AREA * * * ek He ak 
8 GIR IR yok fk ey * 
* * 
* NO 
PHR1I512 Vv 
3 RoR dak ok kok 
* * 4K 
* * * * 
* INCREMENT %--~> DO* 
*POINTER BY 1 * *  & 
* % ae 


FRR ROK a fe ke a fea ae ak 
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PHR1514 PHRISCC 
SOIR IOI IOI ICR ke fot K 
x * * Sok 
x OK *MODIFY BRANCH * * ak 
«DO #-— > INST. *> CT* 
x OF * FOLLOWING x O% * 
x * 15090 & 1504 * liad 
AOI RR RC A ROK dO 
PHR1522 
FR ORR IOROR aOR fe ak oak 
ax * * 
x * * PUT PROGRAM * 
*D1*-~>*LIST IN TABLE* 
a Ok * 4 a 
Hx * * 
A RIB IH ORR kok 
v 
PHR 1524 * * z COLPLIST 
aC * KY ES Hk 
x Ok ak a 
*D2 * QUOTE x> AL * 
Er %* 1 Qa 
3K * * Soke ok 
* 
* * 
* NO 
Vv 
PHRTIZS % * COLPLIST 
x KYES aC 
* Ok > 
% ATSIGN *> Al * 
* % 19% 
* x ek ook 
* * 
* * 
* NO 
Vv 
PHR IS 32 . * * COLPLIST 
ca 
* HYVES kK 
* a OX ik 
* DOUBLE QUOTE > Al * 
* * #1: 
* x HR 
* * 
* * 
%* NO 
PHR1536 Vv PHR1L2 
JRE HOR Olio tok 
*ERROR D4* He HK akc 
x 2 8------ a x He 
* -PLISTER- %---> B6 * 
* * * Lk 
* * BKK 
SOR IOI ICR SO ok AIOE 
* 
PHRIS44 x * PHR1566 
*x 
* "YES tt 
OO x 
* INPUT LESS *> AB * 
THAN ZERO * * 16% 
* * HK 
* * 
* * 
* NO 
PHR1548 Vv 
FeO ROR BOK I IK te 9K ak 
*INTEGERI A4* 
a 2 8------~* 
*COLLECT CEVEL* 
* NUMBRR ‘ 
FEI ICI HOR R IOI OK ite 
v 
PHRI5S 50» * * % PHR1564 
* YES RK 
* Ok x 
* LEVEL ZERO *> AZ * 
* * OK 16% 
* * HOR 
* 
* * 
* NO 
PHR1554 Vv 
FIR ORR ROR GR A ti 
* a HK 2 ak 
x x * x 
*PUT LEVEL IN *---> AC * 
* SYSTEM FORM * * 16* 
* * HIOK 
SOR ROR ke ROR aC ak ok 
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% 
PHR1556_ * % PHR1596 PHR112 
x x FRR RK cake a ak a ak a ak 
240k * *NO Hx *x ERROR 04* aetotek 
x ok ok x Ok Knee 28-----~* * * 
¥AO * LEVEL GREATER 4-04 80%—-->* = =-ELISTER- *#--=> Bo * 
eek THAN FOUR % * * x x 1* 
HK x * 4k % % Bek 
* * JO ICI ORR Rr HOI I aK aK ak ac 
* * 
* YES 
Q--- ee eee = is) 
v 
PHR1562 Vv PHR16CC * * 
Bi 3 OR a ae BOR AIK ok * x 
xERROR 04x* iad * ¥*NO 
Keen 2B were mk % * 
* —ERBYTE~ x *B1 * NAME OMITTED Remsen me 
% * x Ok * 
* * OK % x 
SR RRO I ROR ROR fe ak % * 
* * 
¥ YES 
PHR1564 v PHR1604 Vv 
FR ICR ROR RR ROR OK He SAITO ROR ROR RR ICH 
HK % * * * 
x OK x x % x 
%*A2 ~—=>%*TURN ON LEVEL * * 2LACE * 
x * * ZBRO * *STANDARD NAME* 
HK * * * 
SAORI IO OR ak JIRA ORO ep a HK 
kerr rere reer ren 
‘ v 
PHR1566 Vv PHR16C6 * * PHR1596 
SCR a Fab aa aR ack ak * * 
He ak ak x * x ¥NO tek 
x & * x x Ok x 
¥A3 -—->* SET BLANK * * NAME *> BO* 
x x * LEVEL * % ALPHABETIC %O* * 
HA % * * * ek ak 
So aR oR ack sok kok ak * * 
* * 
* YES 
5 ( losleceatetenheieenmineienat aa 
PHRL568 PHR1612 Vv 
Se a ak ARR a a ak ak ak a FI Sof took tkok 
x * OK x * 
x CLEAR * x Ox * * 
* PREVIOUS % %*B4%-->* APPEND NUMBER* 
* LEVEL % bare *TO NEXT NAME * 
* * x * * 
ce Fe oi dak kokakak kk 
PHR1572 Vv PHR1496 PHR1616 Vv 
Sek bok a i ake ple oke lek xc Se ia dct dk tok 
* * sR * * 
* PLUG NEW * * * % * 
* UEVEL INTO *---> Cé * *TURN ON EXIT * 
*PHRASE ENTRY * * 15% % * 
% % PS ES % % 
SR a ARR a a ak ARK ak 3 OR CR aR Rabat ok 
Vv 
PHR1578 PHR1524 PHR16O18. * * 
3a a aK a a pi aOR as Ok ak x * 
x * soko * *NO 
*PUT USER 6X1T* * % x * 
* PGM LIST_IN ¥%---> D2 * * LAST_ENTRY IN stated 
* TABLE @ * * 15% * TABLE * 
% * Perr d 
FIR OR RR a BRR a * * 
x * Ha I 
* YES * % 
mower won >* C6 * 
* 15% 
ea 
PHR1496 
PHR1582 
FOR ICR a Ra RR BI a 
4 x 
¥*GET BOTTON Cre 
* TABLE 7 & 
* LENGTH IN * 
* BYTES * 
POPS E errs torts 
RHR1588 | 
SOR ROI Ag IO Rk toto a 
* x 
* * 
*GET NUMBER OF * 
* NAMES PA 
FR RR a HR ek ek ea 
v 
PHRL592 * * « PHR1612 
% *NO sotok 
* x OF % 
* TCO MANY *> B4x 
* NAMES * * 
RH 
* * 
* * oko 
* YES * * 
een ween > * BOX 
HK 
PHR1596 
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osm 
amo 
rsa 
mim 
OmZ 
Co | 
n 
x< 


CHK ENTRY 
mR 


PHR1634 * * 
x 


RK x 
* 


*  * 
*A2 * 
ee & 
ae 


*YES 
% 


ASTERISK &-------g 


PHR1636 
Sea tab a tok to ak aoe 
% 
x EXIT 
* CHKENTRY 
2 tok tok doe 


HUH 


* 


Q------ eae = 


PHR1638 v 
ROR ACR a aC a Mk ok 
eA SUr Al# 
*GET TEST Typee 
; CHARACTER bd 
Jalota kk tek tok ior 


PHR1642 Vv 
SATE SS ARES ESTES 

* 
4 CLEAR CHECK * 
* ENTRY x 
* SWITCHES * 
* * 


Skok a to ok ge 


v 
PHR1648 * * PHR1600 


xNQ 9 eH 

a 3 
*> Bl * 

* * 16% 

Skt 


* 
* SUBSCR 
* MUST BE 

* TS 

* * 
* 

* * 

* YES 


wa 


1e 
d 


ono 


s 
i 


* 


RHR1654 v 
Sek tok doktok gotgak ae 


*ERROR O4* 


Hone 2B manna 


bi ITSSUBSER- ba 


: * 
Fea Re a Bk a a a a a a 


v 
pe. * * 


* 


i PHR1662 
ENG 9 480K 
ION * *  & 
E8 *> BO* 
L * &  % 

tk 


PHR1660 Vv PHR1662 
*e 


6 

Sa a et ik reat x 

* * ate 
* * * * 
*SET SUBSCRIPT#--—-> BO* 
* TG ZERO Fd * * 
* ok 
2 oi otoi i aietet 


x 
*BOx> 
* * * 


CHART ABC: CFJPHRAS 
DCS/OS PHRASE DICTIGNARY MAIN 
* 
PHR1i662 * * 
s * 
% *NO 
* 
INPUT EQUAL 
TO aka 


* 
* 


Vv 
SOR OR RO fof fo 
* 


* 
SET SWITCH rig 


* 
ROR XO 2 HOR tO aK a ak 


v 
PHR1668 | * * 
* *NO 
% 


* 
* INPUT EQUAL 
* TG ata * 
% * 
* * 
* 


* 
%* YES 


PHR1672 Vv 

SOI III ICR i i 0K 
* * 
* * 
% SET SWITCH * 
x & 
* x 
SIC AOR ACR totok 


v 
PHRI674 * 
x *NO 
* * 


* INPUT EQUAL ane 0 
* TO aFa * 
* * 
x * 
* EC 


* YES 


6 v 

* Fe BOR OR 

* * 

% * 
* SET SWITCH * 
* * 
* 

* 


a 
ROR ORK RE 


v 
PHR1680, * = # 
* *NO 
% % 
en SWITCH SET #ssseseS 


PHR1684 Vv 
3 OR RC took ok 


SAONSUP Alx* 


1 
x SLIDE OVER ‘ 


4CHARACTER, 1F% 
atk ke ako ak 
Det 
PHR1686 Vv 
sh te OK et ak 
* 
*INITIALIZE TG * 
*PROGRAM LIST % 
* FUNCTION Poi 
* 
_- 
Vv 
PRRLOGS | * * ¥ PHR1694 
x eNO ee 
& * * x 
* IS IT ABORT *> C1* 
* WITH LITERAL * * * 
* * eR 
* * 
* * eK 
* YES * * 
a ar teat >* CO* 
ok 
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PHR1692 PHR1744 
ROK i ak ae a ek ok aR a FR OR ROK IR ok ak ie ROK OK 
att : * 4K * * 
* of x OK * PLACE * 
scos-->4 Yes *DO*¥-~>* COMPRESSED * 
* #FUNCTION Cc Cones * * SYMBOL_IN * 
“a ile * TABLES * 
Tee Hee katie ACI RIOR IOI 
v 
PHRL694 * * PHR1750 Vv 
* & FRO IOI ICSI ACK fof ak 
KK * *NO x a 
*  % FUNCTION * % * 
*C1¥*> CHARACTER sat a * CLEAR EXTRA * 
* FOUND * * BITS x 
tok * * * 
ca * FRR ak aie ah kak a ak ak ate ak kc 
* * 
* YES 
v 
PHR1710 Vv PHR1752. * 
FR RR RRO fe ak ak ak 89 aK a * ad 
pee eure AL* 4 * ene 
ZSLIOE QVER iT SUBSCRIPT Ke 0 
* SIGNIFICANT * 
: * a 
Jeo ai teiek dese * * 
* * 
* YES 
< a a he et 
PHR1I712.— * * PHR1760 Vv 
x * SRR a a ok ok ek ak i aca 
* xYES * cg 
TEST FOR * * PLACE % 
% ATS IGN, OOUBLE Keers=s— *SUBSCRIPT_IN * 
QUOTE, OR % x TABLE 5 aa 
* QUOTE * % 3% 
x * SCR a a RC ak Ra aK a ah ok 
* * 
* NO 
62 -- H+ +n ne fs) 
v 
PHR1724_ * * PHR1762 v 
* * i eek Ke a ka a aK ae ak ak a 
* *YES *x x * 
* He *SAVE PRESENT, * 
* EBCDIC LEFT 4---—-— ie) Si pat CLEAR CNTR * 
PAREN * * * REGISTER * 
x & "8 ax x 
% bd 2K a ak a ae aie he 2 aK aK Rea 
* * 
* NO 
v v 
PHQI E26 .. * % PHR1738 PHR1766 * * % PHR1792 
* * 
* *NO EK * NO tok 
* OR * * x Ok He 
* BCD LEFT *> CO* * ANY LITERAL a> AL * 
* PAREN *O& * * OR SUBSCRIPT * * 19% 
* * HK * * ARO K 
% * * * 
* * * * 
* YES * YES 
Kn ere err ia) 
v 
PHR1732 v PHR1768 * * PHR1 3802 
FI IO OK a tok * * 
* * * HNO 9 eK 
* TURN ON % * x x * 
* COMMON * * LITERAL *> AZ * 
* SUBSCRIPT * % 19% 
* % * ROK K 
ORR AO fOt go i fake ake ak ak * * 
* * 
* YES 
v 
PHRL 734 v PHRI772. * PHR1824 
FO IO ROR Ro x OfoK * * 
7 * * ENO tokGkOk 
* TURN ON * xk * 
* SUBSCRIPT * * IS IT A x> AB * 
* REFERENCE * PROGRAM LIST * * 18* 
* * * * FORK 
SRR OR RE SOR a ak ke a ak ako ok a * 
* % 
* YES 
< ee rr we eee ee 
PHR1 736 v PHR1776 V 
FOR RO RO Hoe OK ROK FEI ROR Re aK ae a aR ROK aK ae aK 
% * * * 
* * *GET PGM LIST * 
* TURN ON * *ADR INTO TBL * 
bd LITERAL Pa q 5 BUCKET : 
SER abo lok tok SE HOR tok okt ik ak tok 
v 
PHR1738 * * PHRL762 PHR1782 
* * Fe He ee Re aK a fe a 
ak x *NOQ 9 aK *COLPLIST  Al# take 
ex * EXECUTION x Ok HO he Oe raateaeed Ka x 
*C9*D OEFINED *> D4* COLLECT pe AC x 
x * * SYMBOL xO * = PROGRAM LIST * * 18% 
ed * * KK * Fe He 
* * Feeiouink iano 
* * 3k ek 
* YES bal * 
SS === === >* DO* 
etd 
CHART ABC 


PHR1784 
BASLE EALAA ARES 
as % 
* %* COMPUTE END * 
#40 Pa de CF PEOGRAM x 


a LIST * 
ae x % 
I A AC a a OH a a 2, 
Vv 
PHRLT92 * % ¥ PHR1870 
tok * NO OK 
x ok x x % 
¥AL * Is IT PHRASE *x> BOX 
xR OK * OX % 
om * * HK 
% x 
* * 
%* YES 
Qo ee ee 
AHR1796 Vv PHR1634 
FR Ak ai kok ak ak 8 3K pie 
am *ERROR D4* Se ROK 
x ok Mea ~-— 2 8---—- * 4 % 
%AQKRM>% =TSOLITER- %--a-> AZ * 
OO % x % * 17% 
HK x x ako 
SRO ICR OR aR et ak a 
PHR1802 
SERIO AAR ROK aK a 
i ata *INTEGER A1L* 
Sel Hemme 28 
xAZ ——>* LOLLECT % 
xk % GOMMON * 
mea * REFERENCE »* 
~ 
v 
PHR1804 * % i 
* *ND 
x * 
* CORRECT Hwee > 
* FORMAT x 
* * 
% * 
x * 
* YES 
PHR1812 v 
3a Fei a ai tok kok aieak a 
TADMSUP Alx 
aeranans 15----71- * 


x SLIDE OVER * 
. RIGHT PAREN + 


Aoki a pi et sobsci an 


v 
PARIOLS. % * 


* % EA A 


* YES * * 
pnepenaesn™ Box 


yey 
PHR1&70 


PHR1826 v 
FORA IRI IOK Sabot x 
am *ADVSUP Al* Satta 
x ox aS * xk 
#AQHR——>* GET NEXT X——— > BOs 
x * SHIGNLFLCANT : % 
HA xen 


I 
aK c 
errr Teter 


CHART ABG: OFJPHRAS 
DOS/OS PHRASE DICTIONARY MAINTENANCE ROUTINE 


x 
PHR1828 | * * % PHR1796 
ek x KYES tok 
ek x x 
*BO*x> IS IT_INVALID *> A2* 
* ke END x & x 
ex eed 
* * 
x x 
* NO 
v 
PHR1832 * * im PHR1826 
* ¥NO KCK 
* %O* * 
* END QUOTE *> AQ* 
x x Ok * 
x x ea 
x * 
* * 
%* YES 
PHR1840 V 
3 oto a tok Skt kk 
*ADVSUP Al* 
* SLIDE OVER * 
a END QUQTE * 
ROR RR ACC aa aK aK ak 3 
PHR1844 
SIG IO OR gobi $k 
* * 
% COMPUTE % 
* LENGTH OF * 
: LITERAL be 
_- 
Vv 
PHR1846 * * PHR1792 
* YES KK 
x x * 
* IS LITERAL *> Alx 
ZERO *% * 
x * sek 
So x 
* a 
x NO 
PHR-1850 Vv 
2 Io I Giok i kofakag do 
*NSMOME A3* 
#NCVE LITERAL * 
‘ TC TABLE 5 “ 
FOI RGR Solo gk kok ok ak ak 
PHR1858 Vv 
aa FCROR ROR I Rai ie 2k 
*GET_TO END OF* 
* LITERAL IN * 
* TABLE 5 . 
J a ia Seto ok teak ak 2k3k 
PHR-1860 Vv 
Renata hae 
*SET BLANK IN * 
*CASE LITERAL * 
¥LGTH INVALID ; 
3 OR a dak ak tok okak $0 
PHRL8E4 V PHR1872 
ROR ROR ORR aR a a I, 
x Pica 
% CONVERT * 
* LENGTH TO 1-5 coe 
*HALF-WORD AND® % 
* SAVE ae 
errr pees 
PHR1870 PHR1872 
Se RR dei a kaka ak oak 
ek x x se ak 
x Ok * % OX * 
*BQ#—=—D* INDICATE NULL *> CO* 
«x % LITERAL %* % % 
aK * eK a 
SI ROR IR a ke keke ke ao 
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FRR ROR BORK 0k 2k 
ok * * 
x Ok * SET * 


SCOR Tee SUBSCRIPT/ * 
* = LENGTH WORD bs 


* as 
Joie biekacdoh eKits 
PHR1876 Vv 
JCC IOR RACRII IOK 
* x 
* * 
*SET FUNCTION * 
x CODE | 
FSIS HOR ICI HOR a 
PHR1878 PHR1634 
FOR I Of RIO $ or ik ake 
oy x ORK 
* FIND END OF * * * 
%* CHECK ENTRY *---> A2 * 
* AND SAVE * * 17% 
* * eK AK 
FIR TOR OR ROK RC 
CHART ABC 
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PROGRAM LIST 
KCLLECT 


COLPLIST 
SOA tO i tok ick: 


HH 


UST 
Bok ak tak 


PHR1896 Vv 
Sea IO aa 


* 


GET TABLE 
POINTER 


* 
a 
ok 
% 
* 
* 
eR OR RO ee aK eae 


* 
* 
* 
* 
* 


PHR1904 v 

A RR AE BE 
ue * 

x % * GET NEXT 

*#AGH~~>* PROGRAM IN 

* * * LUst 


ae x 


* 
* 
¥ 
* 
* 

sea da 


PHR1906 v 
ROR AE BROKE HAR 
a * * 
* * CLEAR PLACE * 
$a5a-—>e FCR PROGRAM : 
Nae NAME 


se a Ra ke EE 


Vv 
OSES NELEP FEES 


SAVE x 
*BEGINNING OF * 
NAME : 
Sotcteak aba tei tok ge Ato 


eH 


PHR1910 
1 a a AR aE 2 A 
*ALPHAT Cc1l* 
Kaw ewe ] ean 
*COLPGMB - IS * 
* IT ALPHA * 


* 
ORO A IR POI 


PHR1958 
HK 
ek ok 
*> CO* 

* Ok 

ok 


Vv 
PHR19b4 * 


* PHR2012 


tk 
* * 
*> D5* 
* * 
alk 


Le aca 
* *YES 
IS IT IN BANK ‘- 
* * 
* * 
* Ok ke 
* NO *  * 
——-=------>* BO* 
x % 
tok 


* 


CHART ABC: DFJPHRAS 
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PHR1922 
BOS aOR Ag RR NOR RK 
+% * 
oe * CREATE ZERO 
SBO%-—>* AND PUT _IN 
* TABLE 
rg * 
FOR RAI RR AOR AOR KX 


RH HH 


PHR1926 
2 a dof CRO 90k 
* 

* 

CGLLECT * 
*PROGRAM NAME x 


3 ROR ROR aR FOR a XC a ak a 


9 
& 
* 
* 


* 


Vv 
ea 
MPUTE 
GTH OF 
NAME 


3b a ee a ae ak a oe 


mo * 
ZO 


* 
* 
* 
L * 
* 
* 
* 


PHR1936 v 
FRR A ARE OR Ok 
* x 


* * 
*MOVE NAME TO * 
* TABLE * 


OR aOR ak Sok oe Sok 


PHR1946 v 
Sa OR a abe mak ok 


*ERROR 


x 
bd —PNAMER— 








* 
DR RRO 


PHRA948 v 
RACK AE SE KK 


*PGMNEXT Aay 


Kew e—— 20 —-- = 


0 
< PUT PROGRAM ‘ 


: ; 
Oe ee eR OK 


Re en ee ee 


PHR1950 "i 
So ob ok Sota tok 


*SUPADV A3* 


Fs 


= SLIDE OVER 


* 
2 Ke to RA 


PHR1 


+e 
x ok * 

¥BE%-=>% BLANK NEXT 
% * ENTRY 


ae 


952 v 
3c a dolor e 
* 


HHH 


RK RH KE 


PHR1904 
#YES  -€xe 
* *  & 
*> A4* 
* * * 
4% 


Vv 
PHRI954 * * 


* 
* THER 

x PROGRAM [N 
* ST 


* 


* 
* KK 
* NO * ok 
maak COR 
* * 


aak 
PHR1958 


OCS/GS PLAN SYSTEM FLOWCHARTS 


TENANCE ROUTINE 
* 
PHR1958 * * PHR2004 PHR1994 
* 2S OI HOR In ka tok ok 
tok * *YES ete eK ERROR. D4 
* * * x Ok * Kk 2 B- 
*CO*> 1S IT LIST *> D2* *00#--># ~CHRERR- " 
a END HO % a a * * 
eK ee ek * * 
* * SERIE Rok iki ak ak i 
ek 
* NO 
v Vv 
PHR1962, * PHR1998 * PHR1904 
* * * * 
* *YES * *NO Bek 
* * kK a 
* CHECK POINT Hoon ann * SEMICOLON > Adx 
* RETURN * ek 
* * * * 34K 
* * * x 
* x * 
* NO * YES 
Vv 
PHR1L966 *& *® PHR 2904 Vv 
* * BRO Ii icici tok 
* *NO ee * * 
* * * %* & DECREMENT * 
* LEFT PAREN tated 0} *02*-~>* INPUT POINTER* 
* ZSTART BANK< * x BY 1 * 
* * Hk * * 
* * FEO OR HOO HICK 
«x 
* YES 
v 
PHR1970 * * PHR2014 PHR2006 Vv 
* FER RCO AC I 30k 
* KYES eR & * 
* x Kk * * 
* LEFT PAREN *> D6* * SAVE CURR * 
* ALREADY FOUND * * # *TABLE POINTER* 
* x sor x * 
* * FRO RIOR ROR ROR kkk 
x * 
* NO 
v 
PHRLOT4 v PHR2008 * * 
FARR tok aK * * 
x * * *NO 
* INVERT LEFT * * 
* PAREN FOUND * * LEFT PAREN : leet 
- SWITCH * ¥ HANGING Es * 
JR Olo tok tok ot totok * * 
x Ok 
* YES 
<---------------- 0 
PHR1976 Vv PHR2012 Vv 
FO RAI FSI OI I dk Ok ah ak ak ok 
40K * * aK * * 
x * * * * ok * 
*C5 -->*PLACE CHAR IN* *05%-->%* TURN LHALE * 
pied TABLE * * "9 * SWITCH OFF 
EK * "ee * * 
Seo a tog Atak fo ak a ok SII Rak AOI i okt 
PHRL978 Vv PHR2014 Vv PHR1930 
Joke dokkoiiok Ia foi fag doiok dotok kook 
*PGMNEXT A3% atte  RERROR 04x wk 
ne 0 ee ee a ee 28------ * ok 
* PUT ENTRY x s064-—># —PPARENER— ions c7T* 
* * * ak 
* * eke ‘ * Seton 
eI I I i fo Oi i ick JIG lot lo tok a took 
1 a nee a et eat ee 
PHR1980 Vv PHR2020 Vv 
FORO RO dO x BORGIR oi ge ako dake 
Rou *ADV SUP Al* *ADVSUP Al* 
tcT#-># SLIDE QVER x ‘ RESTORE x 
CHAR * * POINTER * 
wee : * * * 
els obiok sok tok dk FEO IORI KI AIK 
Vv v 
PHR1982 *  % PHR1906 PHR2022 * * “4 PHR2026 
* KYES be * AYES d0k#ok 
x Oe Ok * ek ok 
* ALPHA OR *> AS* * IS THIS #> AQ *« 
NUMERIC * * * ABNORMAL END) * * 20+ 
* * eK * * HK 
* * PHR1952 * * 
* 4k * Ok 
* NO ad * NO 
wo-------- >* BE* 
fk 
8} -H ee eH + | 
v 
PHR1990 * * PHR2030 PHR2024 Vv PHR2026 
FOR loi to tok i kiok 
* AYES HR FADVSUP | Al* tet 
xk Ke ee ee] Ga * 
* RIGHT PAREN *> AL» SADVANCE OVER z---} AQ * 
ZEND BANK< * % 20% * 20 
* * HERE . ae 
* * FOR Boo i kam a ak 
*  * Ded 
* NO * * 
elaine >* DO* 
* & 
RACK 
CHART ABC 


PHR2026 


ak SOR ROR tare a kok ak kk ak 
% OK Ok 

*AQ >* EXIT 
*  * * COUPLIEST 
rd SOI I ROK RI a CK 


PHR2 
HA 


G30 
ROR Bt a hk a aR aK a aK ak 
* 
Ba % x 

*Al ~~>*TURN OFF BANK 
Aen % SLHALF< 


OK ROR RO Ok Rok Re Hi ak 


PUT ENTRY 


RGMNEXT 


aH FOI I IRI IOI IRI 
x ok 
*AZ D>% 
xO 
woe SACI I ORCI ROK AOR I 


Vv 
PHR2034 * * 
x * 


* 


x 
* 


* 
x 


* 
* 


x 
* 


* * YES 
* 


% TABLE OVERRUN 
* * 


* x 
* a 
* % 


* NC 


PHR2 


w 
¥#O 


PHR2040 Vv 
SERCH RRO ai ae Me eae ak ak 2k 
% * 


x * 
*GET READY FOR* 
* NEXT * 
x % 
JE REI ICR Rok ot kate ak 


PHR 2042 
SOR RIOR IR ROR aR OK i ak 


* EXIT 
* ~=PGMNEXT 
SOR a 


* FRO CA IRCK 


WSYM 
KH FOR a a IR ROR a Nk He 2k 


RK 


HHH 


CHART ABC: GFJPHRAS 
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PHR2056 
% 


QO 
FR COR Xe a a IR 
* x 
cd 


* 
*GET. CURRENT P* 
VALUE : 


x 
OR i ek Xe ke RO aK ae ak 


+ 


PHR2 


PHR2066 Vv 
FA ICC RII IK Ho 
* x 
x % 
*DC BACKWARDS *-~-------0 
+ P SHIFT # 


SRR ROR Rk ake a 


* PHR2070 
AGI OR IO I tok Hk 
* 


* 

CO FORWARD P * 
SHIFT 
BORIS IR I ARO ok ok 


HHURHHHO 


PHR2072 
26 fe eo ae a he ae 2k ak ake ak a ae 
x % 
* x 
*DUMP CURRENT * 
x VALUE * 


Be a RRR Ra a ye ke ato ak 


Vv 
PHR2074 * % 
* *NO 


* 
* Is I 
* POINT 
* 
a 


PHR2 


HUAHHH 


WSYML 7 
eK JI IOI I TOI ARCO ok 
kK Ox 
*BB >* ENTER 
OK Ok SYML 
AOI IO OR 90K 


HHH 


PHR2102 v 
FR kate Atk ek ke Xe kar 

* OK 

* * * 
GET POINTER ¥---> Cox 
TO TABLE 20 
ear 
* 


1 
* 
* 
* 
* 
ed 
x x 
De ROR RK Ra a kk 
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RoE 


PHR2104 
JR Rf ek ok ae a ak ak eo ie 
we * % 
* —& IMPLIED DO * 
*CO¥-—>* SWITCH * 
+ SETTING Pi 


Te RI He RR Xe Re a a a He 


PHR2106 Vv 
He ROK HE I AR BC fa a a 
' * 
ae * 
¥GET SUBSCRIPT 
x bd 


cd * 
FOR CRI ROR ORO XR OK He 


v 
PHR2108 | * * 


PHR2110 Vv 
BORO RI ACR ORR OR ak 


* % 
* * 
* ADJUST * 
* SUBSCRIPT * 
x x 
* * 


Ra ee aK ie ae ae 


< ee ee = 
v 
PHR2114 # PHR2138 
o *NO sk 
* EXECUTION * *  * 
* DEFINED *> DO* 
* SYMBOL a 
* % ROK 
* x 
* * 
| YES 
PHR2118 Vv 
[RR ko kk kk kak 
* x 
* GET * 
* COMPRESSED 
* SYM & PLACE * 
* IN TBL * 
TRO ie a a ake Rok ie ae hea ok 
PHR2124 V 
ROR Rok ak te i eae ak ak 
* a 
* TURN XEQ * 
* DEFINED * 
* SYMBOL x 
* * 
SRR RK aa he Xe akc ake age ak ak ae ake 
PHR2126 V 
RR tk RK dak koe ee a 
% * 
* TURN OFF % 
* IMPLIED DO x 
* SET x 
* x 
FRR IK ROK OR a KK aK 9 
V 
PHR2132, # PHR2138 
* *xYES we 
* * * * 
* IS IT IMPLIED | *> DOX 
* DO x * 
* ae ae 
* * 
* * 
* NO 
PHR2136 V PHR2138 
FR oo Rok Xe tok ae a 
* % ee 
* SLIDE OVER * * x 
* COMPRESSED %---> DO* 
* 7” SYMBOL x ok 
* * Me 
ROR FOR ROR aK XK ok 


CHART ABC 


20 


Vv 
PHR2142 4 # 
#YES 

* a 
* — VALUE MUST BE 

* 14 BITS x 
* * 

* * 


* 
* NO 


e 


PHR 2146 V 
JER I ROI Rok I Rak Rot aie 


anemones 28------ 
* -T2SUBSER- * 
x a 


x ak 
TR ROR a kat ke ate a oie 9k ic ak ak. 
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* * 
* UPDA 

& 

* 

* 


* 
2h a a Oe 


814 v 

ORR a Roi ke a ote 
* * 
* LGOP_UNTIL 

* ALL TABLES 
- PULLED IN 
* 


SOR RR aOR ioe 


HHH 


16 Vv 
39 ROR OR Ro OR tok 
* 


* 
*MARK TRUE END* 
* * 


x 
RC Re a ROR a ae a 


832 Vv 

SO RIOR RO tobe eee 
* % 
* CCMPUTE * 
* ODBLEWDS & * 
*PLACC SIZE IN* 


*FHRASE ENTRY * 
ROR Sok te fomok i aok 


Vv 
840 # * 
* 


PHR2848 


PHR2 


COS/CS PLAN 


Vv 
We Ek ak Ree eR ae 
*x ERROR 
[en 28--—--~ 
* —TULARGER- * 
* * 


* * 
SIO III I 


852 

AOR ROR ARORA AO RA 
EXIT 

LD eererers 


Ree 


SYSTEM FLOWCHARTS 


CHART ABC 


CONSTANT 
CGLLECT AND 
TEST 
CCLNUMT 
We DR aR a ROK aK kak ae ate ak ak a 
OM * 
#AL >* ENTER x 
* Oe  COLNUMT * 
1 exe 2 ROR ROK eR ROK a AOR ae 
PHR2864 Vv 
ERO ROR RR OO ORC aK ae 
x * 
x * 
*CLEAR SWITCH * 
x * 
* x 
DR MOK abt ae i 2 Oa aK i aK a 
PHR2874 Vv 
SOR ICI I i ak Skok kok aE 
x x 
* BSTABLISH #* 
* DECIMAL = * 
* PORTION * 
* ADJUST * 
ROR OR Ok ea ae gfe ak ak of ak 
PHR2878 v 
AOR RIOR ROR RR a 20K a 
OK Bs x 
% o% % COLLECT * 
*AGH-—>% NUMBER x 
* ox "x STRINGS AS * 
ax GROUPS * 
2 HO a kK ROR 
PHR2880 Vv 
2k Xe Re ake fe of aka ae a aK ak af ok 
eK x %* 
a * * * 
#A5%-->*GET NEXT CHAR* 
* * * co 
eK * ae 
SRI RO KK $k RK ak 
PHR2882. * = * 
* * 
* #YES 
* x 
x BETWEEN OR ko-2-+--0 
* a@Ca TO add * 
aK * 
cd * 
cs x 
| NG 
Vv 
PHR2890, *# PHR2910 
% KYES etek 
x x x * 
* DECIMAL POINT — *> B2% 
x x OK % 
* * Sok 
% * 
* * 
* NO 
PHR2894 Vv PHR2912 
FR KR a a af a a ae ak ae a 
a * ROOK 
o xo * 
*INDICATE NOT *> B3% 
* NUMERIC ee & 
Oke 
JSC ID IR IK 
PHR2898 Vv 
ROR Rh RR ROR aR a ROKK pie 
* * OR 
* x % 


%* INDICATE *> BO* 
SNUMERIC FOUND an * % 


Ok 
FOR GRO RIOR HK aK a aK ae 


CHART ABCs ODFJPHRAS 


DOS/OS PHRASE DICTIONARY MAINTENANCE ROUTINE 


PHR2SC4 
Ae a i a eke abe Xe ak Xe ae 
OK x % 
% x x bs 
¥BO¥-—>*GET DIGIT AND* 
& % ~XACCUM NUMBER * 
OK * %* 
FRO Rf Re 2 2 2k fe afc ok ak 2 ak 
PHR2908 Vv PHR2880 
ROR ICR IK a a dak aK a 
* x a 
x * x * 
* LOOP _TO GET *---> A5%* 
ed NEXT * * x 
* He Xe 
FOR ROR kk kg Kak i ak ok ac 
PHR291C 
ROR ROR OHO ROR ROH ROK 
Hox * x 
x x Ef 
#B2%-->% INDICATE x 
* "% “HNUMERIC FOUND * 
Bad * * 
SOI ISIO 2 2 R OI a aK yoke 
PHR2912 v 
Te a fe ie 2 Ra aK a ak ak 
KH * * 
x ok o& CONVERT * 
*B3%-->*POSITION CTR * 
* x ~*TO CURSOR TO * 
yok * FCCATING — * 
Be RO aK a Ke a a ak 
PHR2914 Vv 
FOR a a ee a a Re ak a 2 ae ae 
* * 
* POINT * 
* CONSTANT * 
x TABLE * 
* * 
JA I aki ak i doko yok 
PHR2918 Vv 
eR a ok a tk ook oka 
* sd 
* GET ADJUST * 
* FOR NEXT = * 
x GROUP * 
* * 
Re ab ae Rete ok aa 2k a a a ak ak ok 
PHR2922 v 
He a eR a oe ok a a Ok a 
* a 
* * 
*FLOAT_INTEGER* 
* GROUP * 
eo RR ae ek ke a ea ak aK 
V 
PHR2930, * 
* * 
* xYES 
* x 
* DECIMAL Kenan--- 0 
cS PORTION * 
* * 
x * 
x x 
| NO 
PHR2934 Vv PHR2942 
FEAR ROLE RR ROR ROR I ek 
* a FHC 
* * x * 
* ADJUST FOR *=-—> COx 
* NEW GROUP % %& "x 
* % eK 
9 A as a ae ke a ok a ai a ea a 
Q----------------- ) 
PHR2938 v PHR2942 
Ae a Ree he ee i a af aK afc ok 
x *x ef 
* COMARUTE NEW *  # ox 
*RIGHT SHIFT &#---> COx 
* SHIFT GROUP * % 
x * RRA 
FOR Re kak ROK ek 
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x 


PHR2942 
SOIC IR IOI BOI 
* * 
* * * 
*CO#-->*GLUE TO BASE * 
«x * * 
* * 
JOR CROI IOI IR IORI IC 


PHR 2878 
ae eX 
* * 
> AG 
* * 
Xe fe 


Vv 
PHR2944 # # 


PHR2948 Vv 
FRO ROR RO BORO KKK 
x 


HH 


* 
INDICATE * 
*OEC IMAL FOUND id 


ROR RO OR RC eke ak eke a 


PHR2878 
KX 


v 
PHR2950 * * 
* * 
x *xNO 


x x * 
* Pe TS THIS ALL 


* 

*> A4 
* 
Xk 


* 
* 


v 
PHR2954 * x 
* % 
* *NO 


x x 
* UNARY SIGN Hanne 
* * 


* * 
* 


PHR2958 Vv 
ROR Ri ee oi oe a ok ok ak 
* * 
* % 
*UNARY MINUS —* 
¥ NEGATE A 


RO a aK a ie ee ah ae ak af a 


PHR2960 Vv 
FOR IO IO} OK ACER ACK 
* 


RESTORE 


RU HH 


* 
* 
* 
* 
% 
* 


ROR ROBO ROR RHR I IK 


PHR2 


HO 


2 Vv 
FO IO RRO I ORCI aK 
* 
* 


CLEAR 
SWITCHES a 
FER IG ICO RIK ROK 


* 


KRRHEHHHHO 


v 
PHR2964, # PHR2968 
* *xYES eK 
rr ek * 
* — VALID NUMBER *> DO* 
* * cd x 
* * HK 
x %* 
x * 
* NO 
PHR2966 
3 2 ak 2k Re aie aie ae a ok afr 3k 
* % 
* EXIT * 
* — COLNUMT x 
Re 2K ee a a a a ak a ae 
CHART ABC 


26 


PHR2968 
RRO ka tk aK ek ae ake a 

wee * 

x * x 

*DO#-—>* GET RETURN 

x x “x ~ ADDRESS 

4K * 


ROR HOR HR OK Rte ok ke a a 


RHHHHE 


PHR3056 


Je a HO 

* * 

*> B2 * 
Kok 27% 

* KIO 


Vv 
PHR2972 * * 
a *xNO 
x 


* 


PHR2976 
4k 


RHEE 


9 
* 
* 
* 
* SLICE OVER 
* aE@ 

* 
* 


2 a ak ae i ak 3 a8 ac aR ak ak ak ae 


PHR2980 V 
BO CIO ICSI HCE R tok 


*AL PHAT c1x 
A= == 14------ * 


*-COLN?-, TEST * 
x FOR ALPHA A * 


FRR ROR aR nok a ake kok oak 


Vv 
PHR2988 * * 
% x 
* *YES 


* 
*  EBCDIC OR BCD *------- a 
* PLUS x 


x 
* *% 


* NO 


_ | 
PHR2996 | * * 


% *NO 
*x * 


* MINUS wooo fe) 
x * 


PHR3000 V 
FEO ROK GI RI aOR Fok 
* * 


x * 
*TURN ON NEGE * 
* * 


mH * 
ROR Ke ak Fa a Oak akc ak 
Koerner enn renee c 
PHR 3002 
FORO K a ak dog ae ok ak ak eae 
* cd 
* Bd 
*GET NEXT CHAR* 
* x 
ia % 


FRR ROOK I NOR a aK ak ak ake 


< ae ee ee ee te ee ee ee 
PHR3004 V 
MORO Rf 2 hk Rok Reo a ae 
tok * 
* % * * 
*D8 —->*SAVE PREVIOUS* 
ee: DIGIT * 
ACK x * 
AR ROR ORO Ik ae Rk ak ak ak ie aie ak 
PHR 30C6 Vv 
2K Re ea ie ak ah ke oe 9K 2 Ke 
* * AK eK 
x x * * 
¥GET CHAR AND ¥---> AC * 
* STRIP ZONES * %* 27% 
* * ak tak a 
FRR a ae he ke a aK ak ak a eae 


ChART ABC: DFUJPHRAS 
OGS/OS PHRASE DICTIGNARY MAINTENANCE ROUTINE 


* 
PHR3006 * * PHR3050 
* * FO ORR OR Re 
WRK * *NO ae * * 
a o* x * ok * 
*AQ % TEST FOR #0 ¥B 0%--> ADJUST NUMBE R¥-~--~~--~— 
ak NUMERIC * ee 7% * 
tome * * ** * * 
* * SR ea ak hoe 2k ae ak ak ak 
x Ok 
| YES 
v 
PHR3012, * ~~ = * PHR3CE4 
* * BRE EK EK 
* *NG ** * * 
* * ak * * 
* TEST FOR Beeman DBL FAD % ADJUST * 
* VALID NUMERIC * x * * 
* * ae * x 
* * FOI IOI I IOI Re i 
* * 
* YES 
Roe ee eer ee —— 
RHR3016 v PER3056 Vv SUP ADV 
FERRO A RIK A AOR a 3 ITI TOK 
* * *eK * * #K 
* x * * * * * * 
*GET NEXT CHAR* ¥*B2 -->*RESTCRE REGS *---> A3 * 
* * x * * * * 15% 
* * 4k * * eK 
Je III tok a dO a ROS I I IOR tok 
v 
PHR3018 * * PHR3004 PHR3060 
* * SOO RE RK JOR 
* NO RK * * 
x # * * 
* ~~ SECOND OLGIT *> D8 * * BACKUP ¥~--~+----- ia) 
CGLLECTED * ¥* 26% * POINTER * 
* * sab * & 
* * JO apoio ite tok 
* * 
| YES 
v 
PHR3022_ * * 
* * 
* *NO 
*x 
* BETWEEN OR #------6 
aCa TO aga * 
* * 
* * 
* * 
* YES 
PHR3034 Vv 
SOR ge RE 
*ERROR D4* 
Saeteeeetet 28------ 
* -EXPNER- * 
* * 
* a 
Sok Ad ip a 
Ra ere ee ee = 
PHR3038 v 
RRS KE ROK 
* ax 
* PUT SINGLE * 
* CiGIT IN * 
* WOR KB * 
* x 
AGO tak kak ak toto 
kaw eee e -- - - -- 
PHR3040 Vv 
FOI i Aor a aoitog 
* * 
* * 
* CCNVERT TO * 
* GURSGR * 
* % 
UII BOR SOR I AOR 
PHR3042 v 
SRR ICR AOR ak 
* a 
x COMPUTE @ 
* EXPONENT * 
* FACTOR 7 
“- 
Vv 
PHR3046 | * * PHR3054 
* AYES dex 
* xk * 
* EXPONENT #> B1x 
* NEGATIVE x * 
* * +e 
* * 
* * eae 
* NG * 4 
poeeenn-n- >* BOX 
ak 


DOS/GS PLAN SYSTEM FLOKCHARTS CHART ABC 


INTEGER 
COLLECT 
SUBROUTINE 
INTEGER 
ak SGIO AI E R I FOR ICR 
* * x 
*AL >% ENTER 
x INTEGER 
aK ne 
PHR3080 V 
FRGIGIOR RO NOK BORE a 
* * 
* * 
* SAVE RETWRN * 
a * 
* * 
AER CIOI OI RO OR aR IK 
PHR3082 Vv 
SCO ICR RIOR a IOI Fa a 
SADVSUP Al* 
XGET CHARACT ERA 
Fa noni at 
INTEGERI ' 
4K SSO OI IOI AI a 
* Ok Ok 
xA4 >& ENTER 
x * * INTEGERI 
40k ABO iio dak xokok ack 
PHR3084 Vv 
JCI IOI IOI A IIE a 
* * 
* * 
*xCLEAR WORKING* 
: R&GS : 
OS RIOR a FOI OK 
PHR3086 v 
SOR ROR ORK RR ROK a 
a. * - 


tnot-- >¥GET DELTA ANDS 
* GHARACTER x 
Nae * * 


A AE eR oR a IK RK AO 


Vv 
PHR3092 * x 
* * 
x *NO 
* * 
* 1S IT NUMERIC 
* * 
* * 


#O 
Ho 


Vv 
PE MARERI NTIS 
* 
SHIFT UP x 
RPREV. RESULT a 
Pee YREE RR EES 


PHR3098 Vv 
JOR BOR api kak goa aii ak 
* a 


* 
* * 
BRR a ah a ak a ae ae eK a 


HHH 


RHE 


PHR3104 


tk 

* % 
*> BL* 
* % 

ete 


Wek 


* * k  & 
* ADD IN NEW &==->% BO* 
DIGIT * * al 


HAE 


CHART ABC: 


DF JPHRAS 
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PHR31C00 
FR IAC RR Rak a tok 


eK x 


ee 


x * * * 
4BOX—$—>%*GET NEXT CHAR*-—~> A6* 
x * * * * * 


we 


PHR31C4 
FRI RRO I IO AX 
~~ * 
* * 


HH 


sa1k-—>s GET RETURN i---} A3 * 


Sear * * 
ACSI II RCI AIO FR 


PHR3106 
FGIOICIOR ACR OR ROI Rok HOR 

* EXIT 

* INTERGERI 
FO AIO Fa Kk 


LINKCALL 
3% AK SR ORO HOR a te ao Rok 


ROK 


*BG 2% 
* Ok OK 


LINKCALL 
OK AIK 


Vv 
Sek aR IORI Ok 


HM HH 


1 

* 

ee 

* 

* SAVE LINK 
* REGS 

* 

* 


a aK atk a a ee 


PHR3 


BN 
HN 


PHR3126 Vv 
FEI IO RR OR Fk 
* 


OP _ANO FINCX 
0 OF PARAM * 

LIST x 
Ta RR a aa ak a a a ea 


a a 
x 

*LO 
*EN 
% 
x 
* 


PHR3 


eh 


2 
SRR ORO ROR ai atotok a ak 
x 


HHH HK HE 
%* © 
* 


PHR3134 Vv 
FR SOR ae fea fe HK 
% 


LINK TO 
SUBROUTINE 3 


13 
RH 
* 
* * 
* 
* 
* 
SERGIO a ak ak dak ak ak 
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* 
FRR OR FOR I ak deka ak 


HR I OK 


Het 


* * 
Ho-=> CO* 
& * 


PHR3140 
Ee AGG Roi a Io tok dob ak 
kk x 
*CO*> EXIT 
* * * LINKCALL 
ok SOTO ROI TOI RR ARR HK 
DISK 
READ/WRITE 
LINKAGES 
WRITE 
OK SEO IO II IO HORI ak 
x OK Ok 
*C2 >* ENTER 
* WRITE 
408K AEA RIOR HOI CK 
Vv 
a Ox 
* * 
* *YE 
* WRITE 
* * 
* * 
x Ok 
* NO 
READ { 
a JRO IGOR a SO IO Rk 
x KOK 
*C4 >% ENTER 
kk AD 
etOK SOO Raia $olok aefokak ak 
PHR3156 Vv 
Fol took Sab x 
x * 
* * 
*SET FOR READ * 
* * 
% * 
Perr orr er ec Lt sy 
PHR3160 Vv 
Petter rtri errr ey 
* * 
* * 
* SAVE REGS * 
* * 
* * 
SEI ROI ROR tok ak tok a ak 
Vv 
PHR3162— * % 
* * 
* *NO 
* READ 
* * 
* * 
x Ok 
* YES 
PHR3 164 Vv 
Fa RO RIOR I ROR RFA a a 
* * 
* 
: SET READ 
% * 
FER RGR FAR IR aOR OK 
PHR3 


16 Vv 

ed Sate eke 
% * 
* 
- SET WRITE 
Xx 
* 


a 
BK a aK Re aK OK a aK 


CHART ABC 


KH 


x Ok 
#---> DOK 
x * * 


PHR3172 
HK 


x ok # 
#-—-> DO* 
x Ok 


RK 


PHR3172 


WER 
* 


KA 


PHR3172 
FeO RIOR i ti aK 
40K * * 
* * * * 


S00e Tee SET DISP_IN * 
* 7 REC TO ZERO * 


RRR ROR aa ae ake ae ai ak a 


ee 


* 


PHR31L76 v 
JE RI RR RI aR ak 


* ENTER DISK 
* 1/0 


/ 
. SUBROUTINE 
FOR OIG ROR II a ROR $akok 


RMR HH 


PHR3182 
RRC RR aK a ak ak ik af ok cate 
ak 
* EXIT 
* READ 
2 ik te Rca ef a a ak ac ak ae ak 


ERROR 


FORO OC ROI ICR ACI 
x Ok OK 

*D4 >* ENTER 
x * * ERROR 
ACK Seto a taka ak acti 


eK 


PHR3200 
% 


* 
*TURN ON ERROR 
* SWITCH 


* 
SOR fe ka a ae ak ak ofc ake a aca 


PHR 3202 V 
FRO RR ROR ee a 20K 


SAV RROR 
E 


HHHHE 


20 
Po 
x 
* 
*% EE 
* coo 
x 

* a 


SRR ROR I a ak a kk ke kak, 


Vv 
Beak a ak afc ate ae ake ake a a ae a ea 
* * 
* * 
*COMPUTE INPUT 
* CURSOR %* 
ape he ae ae ae ke a cake ea ak a a: 


PHR3218 V 
FERRO RIO ICR HORAK 


*LINKCALL B4a* 


——— 28-3 * 
* —PARAMC— * 
x * 
x * 
3 a aie he a kc a ae ae ak a af a 


PHR3228 
FR eR OK hk aK aR ae 
* 
* EXIT 
* 


ERROR 
SOR Ra ae hak Re ak ak aK aK 


V 
Je ROR IR Ok foi kta 
& 


HE 


x 
* 
* 


HE 


28 


INIT 


TUPDATE 


Sea A aK 2Ok i tick ok 
* ENTER 
% TUPDATE 

St Re bai tok a ack tok 


RHE 


PHR3242 v 
2k a a toe ok ak ak Xe a 
HR % 


*  % * 
*A3B —-~->* SET SECTOR 
x * * SIZE 
ak % 

POR Perr re re £0 2 4 


ee ee 


RHR3246 Vv 
30k 2g We po ok 
* * 
*CGMPUTE PNTR * 
* TO PWV TBL * 
- FOR PHRASE : 


SRR op aK a a A 


PHR3258 v 
FAR IR EE OK 


*REAC 


Kee 


* PAVTABLE * 
* * 


* * 
aR a a oe abe ee aie ak ek 


PHR3264 Vv 
OR Aoki aR 


*REAC C4* 


a: 


* PWVTABLE * 
* * 


* Ed 
ROR ai ROR aR a aie a oe a ak 


PHR3266 
SRR a og OK ae ate ae a 


* GET PNTR_TO * 
*1ST PHRASE IN* 
% CHAIN * 


* * 
BR ee he a 


PHR3268 Vv 
SE PERERERE LENE 


Paka * 


% *START peeeer * 
eas —* FOR PHRASE * 
ENTRY 


* 
se * 
SRO PR Rg RRC ae ae a ae ac ake 


READIN 
RE 
uP x * 
N =-> BO* 
* * 
wa 


CHART ABC: 


DF JPHRAS 
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READIN 
3 tom ag tok ae 


% * 
x ENTER * 
% * 


READIN 
ROR Re tor ao oe 


Vv 
PHR2B272 | * * 


PHR3278 
JGR I IO TOK 
ae * 
x ok 


*B2*-— DH 
* * 


2 
* 
* 
* 


SET VERB 


Bes 
HA HR RH OK LOK 


PHR32E2 v 

3B Ro ROR Ron i tok 
* * 
* * 
* PULL DCN * 
“015K POINTER < 


sieeucuudenados 


PHR3288 v 
eR te CK ea Fe 


ca * 
*CCNVERT CORE * 
*PNTR TO CORE * 
* ADDRESS AND * 
* SAVE % 
SO RG ROR OF fotok fk 


PHR3294 v 
MRERER EER EK RH 
cd x 
*CCNVERT DISK * 
*PNTR TO PFILE*® 
*ADDR AND SAVES 


TORR RC RR a 


Vv 
PHR3298 * * 
* * 
* #YES 
* * 
* C1ISK POINTER 
* ZERO 


PHR3304 Vv 
FOO ROI Rob ited tm 


* * 
* GETPHRASE * 
* ENTRY READ * 
* PARAMS * 
* * 
* a 


J OE SO 


Vv 
JOO ROO ROR IO 
*READ 


¥en 7 


* READ ENTIRE * 
&PHRASE ENTRY ba 


2k bok a Ro AO te 


PHR3314 Vv 
eR RRR A a eae ak ak 
* 


G 
PHRASE os 


eet eee ae 


HHH HE 


ET C 
NEXT 
a HE 
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* SWITCH * 
cd * 


PHR3278 
ROK 


PHR3368 


kk 
* * 
*> D2¥ 
x * 

A 


ane 
* 


HAIN TO t--> cos 


* 
eee” 


PHR3316 
SARE SEREREESEES 
* 

x x 


#CO#-->aSET - UP PHRASEX 


* *COMPARE LOOP a 


Vis tisdKisae 


Vv 
PHR3320 | * * 


i PHR3272 
ate ROKK 
* Compare INPUT * %* * 
* PHRASE TO *> BL* 
% PHRASE ENTRY * * * 
* kok 
* cs 
x * 
* YES 
v 
PHR3340 * % e PHR3272 
- *xNO RK 
* ARE BOTH % * 
* PHRASES VERBS *> BL* 
* OR NOT VERBS * * * 
x * sok 
* x 
* * 
* YES 
PHRASE FOUND 
IN PHRASE 
ENTRY TABLE 
Vv 
PHR3346 * * 
* * 
a *YES 
* % 
ba DELETE PHRASE re 
OPERATION * 
% * 
* * 
* * 
* NO 
PHR3 352 Vv PHR3798 
FR og det tok tok 
ZERRCR 04* sO 
aseaenes 2hecr-—* * * 
: ~ALPHRASER *=--> B9 * 
* * * 32% 
* * aK 
ORR ROR FO AC ak 
PHRASE DELETE 
PROCESSING 
DELETEP 
FESO IOI Ok KK 
x 
* ENTER * 
* DELETEP 
ROR RR ROR a aR a OK 
K€-ee---- ~-------- 
PHR3358 Vv 
FOR RIO IR kof aR a a akc ak 
x * 
*INDICATE THIS* 
* SPACE * 
: AVAILABLE : 
SGI RA go doi aka ak 
PHR3 362 Vv PHR3574 
SRO RR a gk 2 a ak a ok 
* * $k 
* INDICATE * x 
* DELETED *---> AG * 
* PHRASE * * 31% 
* x Hk HK 
FRR RC a age a ak a ok 


CHART ABC 


29 


pan 
ron 
sucp 
Pmzy 
@o om 
M232 
320 
za 
x 


NOTFOUND 
FEI RR ROR RR AOROR Re ak 
*« * 
* ENTER * 
* ~~ NOTFOUND * 
FEO ICR AO IO a 


v 
PHR3368 * PHR38C2 
Hx * #YES ie 
* x * 
*D2*> VERB SEARCH * Cl # 
x oe & ON DELETE  -&  & 32% 
eK * * eK 
x * 
% a 
* NO 
Vv 
PHR3372, *& xX 
* * 
* *NGO 
* * 
* DELETE PHRASE 9 *-------- 
OPERATION * 
* * 
* x 
* * 
* YES 
PHR 3378 v PHR3798 
Fe he ok ae aK a 9 IK ko he ok ok 
*ERROR D4% okt 
————— 28-------* * * 
z -NPHRASER- %---> B9 * 
* * 32% 
- x eK a 
See ae a he a a Re ie eo 2K 2 9K a ak 
FIND BEST 
OPEN SPACE 
FOR PHRASE 
FINOGPEN 
eRe I ROR RC ae RR a a 
%* x 
* ENTER * 
* FINDOPEN * 
FRR HRC Re a ke a Kok ae 
Coie sueiet tases 
PHR3384 v 
SRR R ROR Rk KCK a a 


1 * 
*START SEARCH * 
*FOR SPACE IN * 


* AVAIL TABLE * 
BER RRC RO a RK i a 2k ee 
PHR 3390 V 
Be oh ae Hi he ak a oe ac as Ra ok a ak. 
hE AK * x 
* o* oo GET NEXT * 
*08 ——->* ENTRY_IN  * 
* AVAIL TABLE * 
er x 
TE a a 2 ak ae a a ok ak 
v 
PHR3392, #0 # PHR3428 
* AYES ft 
x * * 
* COMPLETELY *> AB * 
GPEN ENTRY * % 35% 
* * HK 
* bd 
* * ate Re ak 
* NO * * 
oe >* AQ * 
* 30% 
eK 


x 
PHR3396 * 
* * 
He % *xYES 
Ke & * 
*AQ * TABLE END Rowen 
x Ok 
bk * * 
x * 
* * 
* NO 
Vv 
PHR340C * * e PHR3442 
* HAYES  BRX 
THIS SECTOR * »* * 
* HAVE ENOUGH *> B3* 
SPACE * * 
* * ee 
* * 
* % 
* NG 
V 
PHR3 404 * * PHR3390 
* KYES eK 
* xk * 
* TG SMALL *> D8 * 
% * 29% 
x * Perey 
% * 
x * 
* NO 
Vv 
PHR3406 | * Ok re PHR3390 
* YES daedeok 
* Kk * 
* HOLE FOUND *> 08 * 
* YET *& & 29% 
* * He Rea 
id * 
% * 
* NB 
PHR341L0 Vv PHR3390 
JGR RG HOR dob R aK aif ak ak a 
. * ARK 
x ok 
*SAVE SIZE ANDS=--> pa * 
OINTER) = *& = -& 29% 
* to OK 
SRK A CO ROR aK ac 
Oo ee ee 
PHR3416 v 
2G ap Rai ik sokiokc ae 
* * 
* GET SAVED * 
* SECTOR fa 
: POINTER * 
— 
V 
PHR3418 = # PHR3442 
* HY ES xk 
* Ok x 
* ANY SAVED *> B3* 
* x & * 
* * HK 
* * 
* * 
* ND 
PHR3424 Vv PHR3798 
SCI ROI CR R HOR OK 1 OR ai ak ak 
gre #ERROR C4* ae kek ak 
% kam ewe 28-—--== * * * 
EATH=>4 -NORGOMER= ¥*---> B9 * 
* * 32% 
ae “4 ok sotto 
AOR RRO OR HOR HOR HEC 
a 
PHR3428 *& 
* * 
kok * *YES 
Pe ee) * 
#AB ANY 61G %--~--- 
%*  % %&* ENOUGH SAVED 
aka x * 
x * 
* * 
* NE 
Vv 
PHR3432 * ok PHR3442 
* *NO tke 
* OK % 
* 2 SECTORS *> B3% 
* NEEDED 
% * FR 
* * 
x * oko 
* YES ies 
wee weroen= >* BOX 
aekok 


CHART ABC: 


OFJPHRAS 
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* * 
PHR3436 * x PHR3424 PHR3480 PHR3510 * * PHR3494 
* * FORO OK Aa OK HK x * 
xe * *NO HHH Pee * * 4K x *NO HICK 
x ok Ox OO * * * * x Ok cy 
0 *BO*> ENOUGH ROOM *> AT* #COA—> KING REASE OP EN™ *DO*> IS _HGLE BIG *> CO* 
ek ok * OR ok * SPACE SIZE * Kk ENOUGH ok 
xk * * KK eres * *K * x BHO 
x x PANO I II E x * 
* * * 
* YES x YES 
| Vv 
PHR3482 Vv PHR3516 * * PHR3494 
FOCI IIIf ak * * 
x * * xNO tok 
GET_SECTORS * % * Um % 
WLTH OPEN * CLEAR PAV * * SMALLER THAN *> CO* 
SPACE * TABLE ENTRY * * LAST HOLE xe * 
* * * x He a 
FIO IOI OR AC * * 
* * 
* YES 
GETSEC PHR3484 V PHR 3524 Vv PHR2494 
FOI ROR ORK Bok 3k aK BOR IOI ak a kek ak keke 
JOR ROI ROR RI I II RO ak x * % * ak 
x * * * * SAVE HOLE * % * 
% ENTER * * MOVE IN NEW * * SIZE_AND %———> CO* 
* GETS * * PHRASE * * COCATION * * "x 
JG ICI akak ke dota ako x * * Bek 
FORO BORG ROI Kk HO ak ak Bea ROR ROI toto dk x ak ok 
PHR3442 Vv 
JERE i RoI dO ak atc 
ae x * 
* * GET SECTOR * FINO BEST FIT PLACE PHRASE 
*B3%-->* ADDRESS IN * IN THIS ENTRY IN 
ara : PFILE : SECTGR SECTOR 
FB ak a oR dog ab 20k 
PHR3456 FIND SECEND 
JOR IG ok gob iok ak v 
x * ARI OK Ra a Fogo 2 GR IR dak foi a ak oak 
x * * * * 
* GET LOOP % * ENTER * * ENTER * 
* CCNTROL x * FIND * SECEND * 
x * RRO III OK 2k I HH FO ROI ROI ROR a tok toi 
SOR lok kok ak acdoke a ok 
PHR3458 Vv PHR3488 v PHR3530 Vv 
SR OR a kd dt tok dk 2K Aa OR IO tok a a So a kak etek ak ke ak ak ee 
*READ C 4% Pee * x aK * * 
~~ 28-~-~—--* x xk * * 
i FILL PHRASE * ic54-—># GET PNTR TO " *D5%¥-->#*GET HOLE SIZE* 
x ENTRY AREA * * BEGINNING * Ue * x 
* * ies * * wok * * 
JOO I Ra OI aOR aa JR toi dak a ok tok BOR RR Rao ak ak kc ak ak de ak ak 
€32 S35 >S5--— 0 
v 
PHR3468 * % PHR3488 PHR3 494 v PHR3534 Vv 
* * REEF EES ZC IO OK A tok a ROK tc 
* *NO Xo aK eK tok * * 
% IS THIS * * x x x SET SECTOR i, * * * * 
% SECTOR ALL *> C5* 8064 >* SIZE * a064——>% GET PHRASE * 
% OPEN * * * * * CONVERT TO * * * ENTRY SIZE * 
x * eH Set x BYTES * * ae * * 
* x FIO RR IO IOI RR HOR I aK FIO III AOR HOOK Hkoak 
x * 
* YES 
Vv 
PHR3472 Vv PHR3496 * * PHR3530 PHR3538 
JO IC kk kek tok tek x * SOR IOI IC aOR AOR aK Hk akc 
x x * KYES AK * * 
* SET GOEN * * kx * * * 
*SPACE SIZE IN*¥ % END *> 05* * CONVERT TO * 
% BOUBLE WORD - * x * * BYTES * 
* * * HHH * * 
RA RaOR IaH ACK A * * SRK ROR Re kt ROK a aie 
* * 
* NO 
PHR3476 Vv PHR3 300 V PHR3540 v 
3G rk oko toi iat akak ARE EIEA AE REES BO OR ak a kok ick 
* - * cd 
Sa % GETNEXT * MOVE PHASE * 
* CLEAR PAV * PHRASE ENTRY 4 * ENTRY TO * 
: TABLE ENTRY : “4 ANDO SIZE : : SECTOR . 
2 OI tak i kof oak ak ak 2 ROK to a tok ok fai ake SRR ACR a He ak ee ak ak oi ak aK 
: v v 
PHR3478 * = * PHR3 534 PHR3506 * * PHR3550 V 
x * * x SRR I ROR Oa OK ak Rea ak ae 
x *NO Ho a x *NO * * shoe a 
x Ok x * x * COMPUTE x * x 
* NEXT SECTOR *> DO* * IS THIS A Kenner o— * LOCATION OF ¥---> AC * 
* OPEN * ek * HOLE * PHRASE IN * %* 31% 
* % ek * * * SECTOR * Rok KK 
x * * * ROR ROR RRO RC Rea KC ak ok 
x x ROK * * CK 
* YES x * YES x Ok 
SSeS >* CO* moran a> * DO* 
% * 
HH aK 
DOS/GS PLAN SYSTEM FLOWCHARTS CHART ABC 


x 


PHR356C * * 
* * 


CHART ABC: DFJPHRAS 


DGS/OS PHRASE OICTIONARY MAINTENANCE ROUTINE 


x 
PHR3602 | % % 


aK * *NO ax * *YES 
ke € * Ee 3 * 
4A0O * ANY RESTOWAL Hoe O*BC#> LAST ENTRY Mm er eecen ae 
* * & * x oe Ok 
aR * x 20% 3 * 
x * * * 
* * * * 
* YES * NO 
v 
PHR3566 Vv PHR3606 * ¥* 
$0 kia go x * * 
* % x *NO 
*MARK HOLE AND* * * 
* CCNVERT TQ * * CPEN ENTRY + ieee 0 
*DGUBL& WORDS * * 
x * * * 
IER Ri i x i aca totok ac * * 
* * 
* YES 
PHR361C Vv 
PTeCE SES SS 5 to 2 
* * 
UPDATE * * 
AVAILABILITY * FORMAT * 
TABLE * * 
* * 
JOR OCR oko aio a 
Kae e nee [s) 
RESTORE PHR3614 v 
Vv Peter ec re. ts ts 
SRO A tak ao a ta a x * 
& % * GET NEXT * 
* ENTER * *ENTRYs GET TC* 
* RESTORE * NEXT SECTOR * 
PEPE LES CEL fl £3 * AREA * 
| to a ogo dak ak 
} 
( pita Q Gili h etter 
PHR3574 v PHR 3620 v 
$e oe Rk 3 Oo toi ton a iok ok 
Re % * * * 
* # & GET PFILE * * CHECK ALL * 
*AG -->* ADCRESS GF * * SECTGRS IN * 
x * THES SECTOR * * CORE, SET * 
ee * * * SECTOR SIZE * 
SCR RR RONG ag 7 __ 
PHR3578 v PHR3622 Vv 
33 ei ok ok dk ok pTterrrrrres res. 
* COMPUTE * * * 
* POSITION OF * * SBT LARGEST * 
* SECTOR IN * *SPACE BOX TO * 
*PHRASE ENTRY * * ZERO * 
* AREA * * * 
Sek a OI a a ak dome OIRO Ra a io fk 
Vv | 
PHR3582 * * PHR3626 v 
* x FOR AGB fom a foi 
* *Y.ES x * 
” * * POINT TO * 
* OELETE = *eess=-= *PBEGINNING OF * 
* * SECTGR * 
* x * * 
* x JOR IO IR II AIK 
* * 
* NG 
PHR3586 Vv PHR 3628 v 
TTC ECLTSCS OC £24 AI OR ito gaa ak ak 
* * * x 
* * * * 
*SAVE RELATIVE* * START LGUP * 
£DISK ADDRESS . : 7 
FRR FIER aR A 2 oI toro yok 
—— === 
PHR3588 v PHR363C Vv 
SER Ra ok ek doko TTEectrrrrs irs ef 
x * sok * * 
* FIND ENTRY * 8 * CONVERT TO * 
* FOR THI * *BB -->* BYTES, GET * 
* SECTOR_IN * * * *PHRASE ENTRY * 
* AVAIL TBL * kK * * 
ROR A ig RC ea ak a ak FEI OI Ra ok 
PHR3594 Vv PHR3634 v 
ORE ICR tok 302 to Ofok 
x * wR * * ok 
* * x * * * * % 
* GET POINTER 4-~-> BO* * CECREMENT_ *---> CO* 
* TO PAVTAB % x 8 *SECTOR COUNT * * * 
* * *eK * * rey 
FOR AC IO tak tek xa Se I RO i tok x ok 


DOS/GS PLAN 


SYSTEM FLOWCHARTS 


* 
PHR3636 | * * 


Vv 
PHR3638 = * * 
* * 
* *NO 
* 


* 


v 
PHR3642 * * 
* *YES 
* a 
* IS THIS AREA 
* END 


PHR3646 Vv 
JRO RO IOI IIR IK 
* * 
* % 


* CLEAR * 
ESIZEsGET Stee 
FIG I toi i aio 


Vv 
PHR3650 * * 


eK * 
x ok Ox 


C4 *> EMPTY ENTRY 
x oe x 
Hk * * 


*YES 
x 


PHR3658 V 
FRO i ack Reto tek teate ak 
* * 


*COMPUTE TOTAL * 
*SIZE GF OPEN * 
* ENTRY * 
* 
* 


aK 
x Ok 
*C5*--> 
x O* 

*% * 
SOIC oR a 


RHR HHH 


v 
PHR3666 * * 
* *NO 
* * 


* LARGEST SO 
* FAR 


PHR3670 Vv 
FORO RoR HOR i kk 


RRR HEE 


SAVE I 
PAVTAB 
et ROO Ok 


Vv 
PHR3672 * * 
* * 
* *NO 
* * 
* IS IT TGO BIG 
* * 


* * 
* 


CHART ABC 


PHR3704 


RK 
* * 


*> DB* 
x * 
ak 


PHR3688 


RH 
* * 


*> 03% 
* * 
HK IC 


PHR3630 


RK 
* % 


*> BE* 
x Ok * 


HK 


PHR3630 


sek 
x ss 
*> BS* 
* x 
sek 
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PHR3678 
FE IOIRI ROR ROICR ECR 34k 
OK * * 
kk * * 
*DO%-->*SET SPACE OF * 
« * 2 SECTORS * 
tox * cg 
SOIC RIOR eke k ak aC Hook 
PHR 3682 Vv PHR 32658 
JO IORI OI FOr Ki ok 
* x OK 
* * * * 
* CREATE NEW *---> C5% 
* ENTRY * % Re 
* * OH 
CROC IRI ORR Fok ak Rok 
Qe ee nnn nnn 9 
PHR 3686 Vv 
FOR OR Or I RO i tok: 
* * 
* * 
%*CLEAR PAVTAB * 
* ENTRY x 
* * 
FE IORI ROR IORI IOI IOI 
PHR3688 v 
BCI ROI HC tok te 
ax * x 
x ok * * 
*D 3 %-— > GETNEXT x 
x % *PAVTAB ENTRY * 
HK * * 
FOI ICIO II OIOR AOI OR tokogc 
PHR 3690 Vv 
FOI ROR I ROI i ok 
x * 
*GET OVERFLOW * 
* INTO NEXT * 
* SECTOR * 
* 7 
FOI tot tof ak doloioge a 
Vv 
PHR3692 * * 
* * 
* *Y ES 
x % 
* OVERFLOW OVER i tat O 
1 SECTOR 
* x 
* * 
* * 
* NO 
v 
PHR3698 * * PHR2720 
* * 
* HYVES Hoke 
* xX * 
* FINAL END *> AQ * 
* * ADK 
* * AHO 
* * 
x * 
* NO 
PHR 3702 Vv 
JOO HO Rok a RIOR I Keak 
* * 
* STORE * 
*BEGINNING OF * 
* SECTOR * 
* * 
FC II ROR IOI I oie 
PHR3704 
JOR ROI oto kr i a aK 
eke * * 
% Ok * a 
*DB8%*-->* GETSIZE OF * 
x * * CURR ENTRY * 
x * * 
ASIII ROR foi tab i ak hk 
PHR3708 * * ‘ PHR2650 
* *YES 4% 
* ARE WE Rok 
* CHANGING *> C4* 
* EMPTY PHRASE * * 
* ENTRIES ¥* wot ie 
* x 
x x OK 
* NO * x 
---------- >* AQ * 
* 20% 
$A 


PHR3 
Piebee 


x 
#00, " 

* 
tae 


PHR3 


PHR3 
ae 


#A2 —_ 
rd 


PHR3 


PHR3 


PHR3 


PHR3 


* 


PHR3 


PHR3 


PHR3 


% 
712, * * 


716 Vv 
SGI IO I ROR OK 
ax “ 


x 
*SAVE POINTER i} Be 
* * 31% 


* * 
Tere ree ere rt 2 


720 
eR Ra RRC Re a a a a a 


¥WRLTE C2* 


2 
euniTe Crate a 
ox 
SOIR SOR HOR RK 3k 2k ae 


736 
ae 3 ae ak ak a a ak ak 2k aK ae ok 


WRI 
#AVAILAB IL ITY * 
TABLE * 
Face ace porto 


738 Vv 
FER RRR a a ak ak $k ak 
* % 


* * 
*POINT TO NEXT* 
*PHRASE ENTRY “i 


FR Ro aR RO ai ak Re hk a ok 


740 y 
SOA SAENE CEES ETA 


POINT TO_@nv M 
* TABLE FOR * 
x THIS PHRASE * 


* 
ee he RO ea a ak ae a a ok 


Vv 
1460 # 
x * 


* *YES 

* * 
FIRST IN THE 

* CHAIN 


% % 
x * 
* NG 


750 Vv 
FOI RK aR rok kota ak 


*READ C4% 


Hw ome 2 G——~— 


SREAL EN NEXT * 


: * 
HE HORN aR aE a a a 


Vv 
Sorenson ett 


Ae Ie dokseicotee 


PHR3630 


PHR3630 


eeee 


OK RK 


a" 


red 


7 
* 

* 

x 

* CLEAR CHAIN #---2 Box 
* BUCK & 

* 

* 


% 
* 


* 


CHART ABC: OFJPHRAS 
O0S/OS PHRASE DICTIONARY MAIN 


PHR3760 
3 SR ok a Xf bo 20k 
am * 


#008-->4 PUT _IN_ NEW 
CHAIN 
See - 


FRR Oka ae ROR KK 


HHHHH 


PHR376 Vv 

x rere rere 
* * 
% * 
* = =6GET DISK * 
ZADORESS AGAIN 
AGG IG I IE 30k 


Vv 
PHR3770 * 

x * 
x *YES 
* * 
* WAS PWV TABLE 
% UPDATED * 

x * 


* * 
% NO 


PHR3774 Vv 
RIOR ICR Xo Ok 2k Ri ek 


“WRITE C2* 


———— 28-2 = * 
*hRITE PHRASE * 
x ENTRY * 
* ak 
Ta a tk tok oh tok ak ak ok 


Vv 
PHR3776 * 


Vv 

PHR37EO * * “ PHR3268 

* *YES OK 

* x ok * 

* THIS PHRASE A *> AB * 
* VERB x * 29% 
sok 

PHR3792 
* 2K 
* NO x OK 
---------+>* 88x 
* * 


* * 
* 


Fk 
Q-—- new e 
t 
Vv 
PHR3786 * x 
x * 


” *NO 
* * 


TENANCE ROUTINE 


PHR3 800 


eX HOR ROR OR ak a yok ok ako 

* x OK a 
#COMD* EXIT * 
xk | TUPDATE 

Be ROOK i Re a eK ae ok 


PHR3 802 
JOR AOI fo OK IK 
eK * * 
x 


% x x 
*C1 -->* CLEAR VERB * 
OK * SWITCH * 
sok 

GOO IIR ROO ROOK 


v 

PHR3804 * * PHR3792 
*NO $k 
* * 

*> BEx 

* % * 
* * tO 


HOOK 
PHR3790 


* THIS PHRASE A Kee G 
sd VERB * 


* * 
* * 
* YES 


PHR3790 V 
BR RR a a a a ab aa RK 
Pir * 
* 
#874-->% SET VERB * 
gh ESWETCH IN PWV # 


chbwkuatinetaed 


HK 


lw ewe een enw nnn ne 


PHR3792 Vv 
ROHR a a Bk ROK etek kook 


hile *WRITE C2* 


* = -—-= 2 g~--—— = 
xBBe-~aeWRITE UPOATED* 
es PWV TABLE * 


‘ * 
WR A a a RK a a ak 


PHR37S8 Vv 
Ae RO a ok oe Ra ak ae ae ae ak kak 


wee HLINKCALLB4# 4% 


en 2 Be ae % 


*B9 =->%* ~PARAMB~ aad coe 
Ok x 


Per * ered 
Fab doles 
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32 


CHART ABE: DFJPIDMP 
BCCS/CS CQMMAND DUMP RCUTINE 
PIDMP PID359 
ea kok a Fk kk ke 
RR RO RO eK * * 
* * * * * * 
* START * *CO%-—2* SET TO NEXT * 
* PIDMP * * SWORD OF [NPUT* 
RH ee OR KK an * 
Levis ddeeieueie 
Vv 
PID370 * ¥* 
* * 
* *YES 
OFJPIDMP — * HAVE ALL * 
COMMAND DUMP * CHARACTERS Heo 
MODULE * BEEN SET TO * 
*  “QGUTPUT = * 
* * 
* * 
| NO 
P 10190 Vv P1390 Vv 
3 tok Atoka (tok tok 3a RO Rota i dog ie ic 
* * * * 
* * *ADVANCE PRINT* 
* ACCESS IO * POSITION BY * 
*DEVICE NUMBERS * FOUR * 
Tilacesseteniee FRR RC ek a ae ak ae ok ak 2 eae 
v 
PID21¢ Vv PDI410 * * P1ID330 
SR I ak dio x * 
* ¥*NO He He 
* * * cd % * 
ASSIGN BUFFER * IS PRINT LINE | *> BOX 
* TO DEVICE * * FULL a 
* x KK 
RRR AR RK *x % 
x Ok 
* YES 
< a a ee 
PID23C v P10430 v 
ROR ote ea kek a Ok a 2a Be I GIR tok sok dak tog ik 
* * 
* * * * 
* INPUT, READ * OUTPUT LINE 
. PHRASE * * 
ROKER HHH E KK Sek ke Soko tok ok a 
PID25¢ Vv P1D450 Vv 
3 kao a ok a ola SOI RO Rob ka Or ak 
% * x * 
* SET PHRASE * * RESET PRINT * 
* “CHARACTER * * PCSITION  #* 
*x COUNT TO # *POINTER TO 8 * 
*  QUTPUT * * * 
SR OR a OR Fk to ea ae ee ae ak ae ok a a IK ook 
Vv 
PID270 v P10470 * % P10330 
PErterer ere le ts * * 
* a *NO sok 
*CGMPUTE WORD * * AS ENTIRE x * * 
* COUNT OF * * COMBA ND BEEN *> BOX 
*PHRASE IMAGE * * PRINTED * * 
* * * x ek 
Peete rer irre ss Ta * * 
* * 
* YES 
PID290 v P1D490 
oe a teak oe a aK 
* * OR ae a Rhea of ak a 
*SET TO PRINT * % * 
* POSITION 8 * * EXIT * 
* FOR PHRASE * * LRET * 
* SIGIR RGR a ick ok a tok 
JCI OR Aa OR IE 0k 
P18310 v 
Fok tO Oa aR Ok 
x * 
* * 
*SET TO WORD 2% 
pias INPUT ARE At 
“[o 
PID3 v 
22 o sae edeaeeiee 
Pais * * RR 
* * CONVERT 4 * * x 
359%-->* CHARACTERS TO*X—-> CO*x 
* OUTPUT AREA # = % + 
ral eK 
deeeseanee cxees 
DOS/OS PLAN SYSTEM FLOWCHARTS CHART ABE 


CHART ABG: DFJPIOCS 
DOS/OS DEVICE SWITCHING ROUTINE 


PIOCS 
JOR III I IOI I I kok 


START 
acs 
ak 


* 
* 


HHH 


Pp 
wR Je RO ROR ROK OK 


Vv 
jreteeeetenaeene 
* 
* CALL _LIOCS, * 
* SWITCH 
+ DEVICES Pd 
AQIS AIO I III #ok 


x 


Vv 
3 II IOI I aK tok 


EXIT 
ARR ROI x tok 


bs 
* 


SH 


LRET 
RK ok 


DOS/OS PLAN SYSTEM FLOWCHARTS 


CHART ABG 


DFJPLAN 
FO OR tok dt flo 
4 
* START 
* DFJPLAN 
HEHE E KEKE TE 


MEE 


ERRABORT 


SEO Ook a 
* ENTER 
* ERRABORT 
PrELETttrorires, 


RHR 


PLA3370 v 
2 aR RR RR OK dike ke 
* 


* 
* * 
* BET ERROR * 
* CODES * 
x 
». 


x 
aI EE RIOR IO FOO 


PL.A3450 
2 ok 
wes * 
“ot * * 
*A3 —->* SET PHRABE 
«  * * ABORT IND »# 
at * * 


RR SOR aE FOR 


* 
* 


v 
PLA3470. * * 
* * 
* *NO 
* % 
* ns gumMe OPTION 


Keene ee 


PLA3510 
ke ge Ap tok Ob sek 
* 


TAKE 
PARTITION 
OUMP 


Se ROR fk 


Ht 


5 
* 
* 
*x 
* 
x* 
* 
* 


Keene ae -- +++ 


RALA3530 v 

I a OR otk 
* * 
* * 
SRESET SYSTEM * 
* STATUS sd 
* a 
a0 to ao a ook 


PLA3630 Vv PLA8930 
Jel iO OR sok a 
% HK 
ok * * 
ECT #—=> AT * 
ERRS*!) * 0&3 
* et ty 
Jet ak tO 


HHH 


SE 
"DFJ 


l 
A 
* 

EHREEHKKK 


DUMPLIN 
AAI gk 


* * 

* ENTER * 

* DUMPLIN 4 
OR ORO CY bk 


PLA3840 v 
2G REI IOI ei tok 
% ek 


x ek 
SAVE REGS *-~-> BO* 
x # % 
* ord 


8 
* 
* 
* 
* 
* 
* 3 
SO OR Ok doiatot 


*x 
* 


*BO 
* 
** 


CHART ABI: DFJPLAN 
OOS RESIOENT MAINLINE 


PLA3890 
aR RR ok SOK ROR 
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x LEVEL * * LIST * * * 
x x HK x * HK 
FG RIOT IR I I ROKK ake * 
* * 
| * YES 
PLAT810 Vv PLAST TO Vv 
SAR eR he teat AUR Se EE 
* Padi z 
* * RESET * 
*LOCATE LOCAL 5-5 cox * EXECUTION %*--------- 
* CONTROL BLOCK® * * LEVEL * 
% nee * * 
Trine a tela ato SIO OK a a aOR a kk ak 


DGS/CS PLAN SYSTEM FLOWCHARTS 


CHART ABK 


PLA8890 

I le RO aie ae ae ate ake 
RK * * 
* a x * 
DO #-—>¥*UPDATE POP-UP 
ee Ok LIST * 
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Vv 
PLA9090 * % 
* * 
x *NO 
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* x 
* * 
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* KNQ 9 # kK 
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% BANK LOADING a> AG * 
* xk Bx 
* % FORK 
* * 
* * 
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x 
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RAK K 
PLALQOTC 
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*AO * CLEAN SWITCH % ~~ — 0 BOX LINK EDITING *> C4* 
x * * ON * ok ok x * 
EX * ee * * *%K& 
* * * & 
* * * * 
* YES * YES 
v 
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* 
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* * * * 
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* * 
* NO 
ha ee ee — 
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* LOADER * 
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* * 
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* * 2 ig toto ton $k 
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* * PROGRESS * * THIS LEVEL * 
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* * 
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* DITTO MARK *> Bl * 
x x 3x 
* x MRA 
«8 x 
* 
* YES 
Vv 
PSC234 * * 4 PSC292 
x XYES took 
ak * 
x VERB *> AQ * 
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* CHTEST TO *> AB" 
* “PScd260 % 
a % Rem 
FRR ROR ORR RR RC a a 
* 
PSC2E0_ * * 
* * 
* *YES 
* Ed 
* THREE Kaan -H- 9) 
* a CHARACTERS P * 
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* % cd * 
* % HAO 
* * 
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x & * SAVE THIS * % ERROR ON * aoe x AEN GFE * 
HAL |-~>¥PHRAS E ENTRY # * PREVIQUS nee O*C 1% —>*PREVIGUS PHR * 
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BR RR CICK ROK FOI Xe * * ATOR ROCIO ORI ROE 
‘i te : * *YES *SYMTUGET Al* 
a =” | hc ee 
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FR OI ROR OR ACI OR I x FTO RCI GIO a tok OK 
PERROK Alx Hem He % YES 9 HK 4K * x sk Fook 
Seated l2------ x * x x O% x xx %* SAVE REPEAT * * * 
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* * RH x * HHO Tee *REPEAT SWITCH * 9 *#* 
ROKR RU ROR ORK BOK aK x * ROR RO ROI HOOK Fok Soke ie 
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SL I Ok dk kok kok deat 


PSC656 
SE ok ae a sok 
x 


* RESTORE % 
RR EEEAL SWITCP 
* SETTINGS * 
* % 
AOR AICI ICI RIOR TORO I RIK 
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He HH HE se HH 


eo 


Vv 
PSC682*# * 
OO ANG) 
ate 


PScale 


e 


* 
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* * 
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* ~~ PHYSICAL EOF 4------0 | *C4#-->* SAVE INPUT  *---~------- rs) * COUNT IN 
* * oe oe POINTER *& x ECODE 
* * eK * * * 4 
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* EXIT * * CALL PLINPS9< x 
* TO MONITOR * * x 
ZOCOR ok dog a OK dk * * 
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* % > — SUPPRESS * 
40% * * 
* x 
% x 
| YES 
PSCOC4 Vv 
FEO III O I IO 
* * 
Ba PASS el 
* CHARACTERS 
* OVER BLANKS * 
* * 
| 
PSCS16 Vv 
ROR FORO ROR ROK ROK Feoie 
x * 
* SUBTRACT * 
* NUMBER OF * 
* BLANKS FROM * 
* COUNT * 
FIT II  AIOI IK 
62 4---e2----- === (a) 
PSC920 Vv PSC4724 
2 ORO tea ke RC 
x x Mea Xe 
* SET INPUT * * % 
* POINTER TO. #---> A5 * 
*INPUT AREA-1 * %* 41% 
a x ROK ACK 
ROR ROK Ca a kook toto a FO 
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CHART ABQ 


ta 


SYMTBGET 
ak ATOR IRR IOI HK ic 


* * % 

¥AL >* ENTER 
YMTBGET 
errs 


a % 
Pers * Stor a tok ak 


Hee 


PSC936 v 
SUI IO I IO ICI OK 
*OISKwRD 


* WAL 
x 
* 
SER ORR a a a ak ake te 


PSC93& * 
* 


PSC942 Vv 
Ss IC Rik ACR ak ak 


* 
PLACE LEVEL * 
IN_SYMBOL * 
TABLE * 

* 


* 
Ea 
* 
Pa 
* 
BOGOR iat i keieteak 


PI3C944 Vv 
SE ROI I tok 


* 
POINT TO * 


FIRST ENTRY * 


* 
x 
x 
%* * 
* 
* 


seat teak kak 


PSC946 
SCI ae 


PISCIEG Vv 
JOCK SOR 20k AOIOI EG a oi x 


*OTSKWRD BL* 
Kn a 41 ee * 
*WAIT ON PHASE* 
ie ENTRY: READ ps 


2 Ra SR Rog Ck a a i ae 


PSC956 Vv 
SERA RI RA gk EC a a 


*SRCHCT O1l* 


#a2s— | 1 


* POINT TO * 
* TABLE 3 : 


Xe 
SOCIO a AOR i ag otok ak 


PSCS5& * 
% 


Xa G 


PSC1190 


74H 
x x 
*> 05% 
* % 


me 


te 
* 
*B1 
* 
4x 
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CHART ABQ: DFJPSCAN 
DCS/ES COMMAND PROCESSING ROUTINE 
PSC9EC PSC1O12 PSC1982 
FA RCo x A OR SR LOK OR OK At ae ak to tek doth 
* * RK xDISKWRO Bl¥ ek * x 
* * INCICATE * x * a 4) ------ * * ¢ * cs 
pk~—>* INITIAL NUT * *CO*-->*WAIT UN READ * *09%-=>*ADD ENTRY TO * 
*# & COLLECTED * a * * * % ok *SYMBOL TABLE % 
x * Ok * * K% * * 
AR RC RO HOR KH te ORO ROR Cok A RO He BOOK AC sik fete ak SO ke ae xe 
PSC962° * * PSC1082 PSC1914 V PSC1C84 Vv 
* BRO RRR RC He SOIR A ICI dee et de dete 
* HYVES  #x x aK x * * % 
x ok x * * x o* * * * SAVE LAST * 
*> TEST FOR ZERO *> 0a* *C1*-->¥*F IX SUBSCRIPT* *ADDEC SYMROL * 
xO SUBSCRIPT x % * x * * * * LUOCATIGN * 
* * ex Ok * * * * 
* * AO ROR CK doi i tc BOE ICRI tok i ROCK ae 
* * 
| NU 
PSC980 v Psc1l0l8 * * PSCLLO2 * * 
BOR OR Ok GR tok % * % % 
* SAVE INPUT * * xYES * *YES 
* PQINTER AND * * * * * 
* POINT £0 * % PCSITIVE bata a 9 * ANY DUPLICATE Bonne 
* SUBSCRIPT * * SUSSCRIPT * SYMBOLS * 
* EXPRESS. * * * % * 
FORO ROG Raa OR kok * * % * 
* x * * 
| * Nu * NO 
PSCSE4 v PSC1022 v 
FOR RO i tok ag SOIC RR OR RIOR ke ae tek oe a 
* * baled *ERRGR Al* 
* INCREMENT * x esse S= 1 2eee=S= * 
* EXPRESSION * *C3%-->* -DSYMERI-~ * 
*  CGUNTER = * x * * 
x * tk * * 
SOR A ok otek te SOR SOIR OIG SOCK ok 
< oe ee ee ae 
PSC9SO v PSC1028 * * PSC1166 v PSC 3€2 
FOR ROK fe to S eH tk * 2 SRI SOR HOC Heke ak ake ak He 
*RCALL Al* * *NO * 
: 4C==-5>=* * IMPLIED * * 
* ARITHEXP * * SYMBOL LONG  Sematei d ie) * MA 
* x * FORM * *«SYMB 
* * * * % 
SOR ROHR A RR a RRO * * xototok 
% * 
ONES 
PSC9S4 ¥* * PSC1032 v PSC1070 PSC1199 
* * FOR FOR AOR tok doko SHOR Sok OH tke fot dea Nek ae 
* ¥*NO * * eRe 4% * = 
* x * TURN ON eK * x x * * 
* LCGICAL VALUE t= G * SwITCH - *> CO* *D5%*-->*RESET SYM DEF* 
* IN EXPRESSION * * INVALIO Oe * x % * EXP * 
* * * SUBSCRIPT * ed #% * * 
* * SE ROR ROR OR ROR ICICI HC SORA HOR Rok NOI a a a 
x % 
* YES 
Q-~-------~-~------- 9 
v 
PSC998 Vv PSC1036 * * PSC1194— * PSC1IP4C 
SUR Rc dog * * * % 
* * * *YES * NG oR Hear 
x * * * * ok * 
* SET RESULT * * SUBSCRIPT X——- a= is) * VEReS TO x> Aa % 
* NEGATIVE * * UNDER 16,384 * * PROCESS eR fle 
* x * * x * ak tok rs 
SR IR Kok tk kok ae ook x % * * 
* * * * 
* NO * YES 
PSC1000 PSC1049 PSC1922 PSC1198 * * PSC1214 
RII ROI a ak ok FOR IRR tok AOR tote k x * 
* * *xERRCR AL* Heakok % BYES tokvot 
* TURN OFF x Pee ee yee % x x x ok * 
* LOGICAL * * -CSYMER2-  *---> C3* * LAST VERB > At * 
* RESULT * * * * x *O% fs 
* * * * tok * * HMR 
SOIEIOIG Rok Rg for tC ae FOO ROR RO RO ICH * 
* 
Pr 
Kater err nce Q Q~---~------------- 0 PSC1T8E 
PSC10C2 Vv PSC1044 v 
2 Bok RO dotop tok got SRO IRR RRC ae oko 
* * * * 
* * * PLACE * 
* RESTORE * *SUBSCRIPT IN * 
* REGISTERS * *SYMBOL TABLE * 
* * * ENTRY x 
3 Oo ok i tom tok tok SR IOI RGR 2G xc 
| ah rd 0 
v 
Psclcca * * PSC1O14 PSC1070 Vv PSC1082 
* SOR ROOK etek 03k 
* *NO Ok a xo * * HK 
* eO% * x * * SLIDE OVER * x * 
* SYMBOL TABLE *> C1* *C9%*-->%* SUBSCRIPT *---> DO* 
* “BEING READ  * * * *° * & EXPRESSION * *  * 
x * Ri ax * % eK 
* * SRE IRC ICR H ac eX 
* * ett 
* YES * * 
mostrar mann >* CO* 
* * 
HRY 
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PSC1214 
SRI Rok gk HORI ok 
440K x * 


%  % *SET STANDARD * 
*AQ -->%* LSER EXIT * 
x x * LIST % 
2 ak x % 
SPIO SI II I KOO ak 


PSC121€ Vv 
FOI OI ROR ROR RC AIC ic 


* x 
*GET USER EXIT* 
* LIST FROM * 
. VERB PHRASE “ 


FRR CRO RK ak a a Xe 3 


v 
PSC123C * * 


PSC1234 Vv 
RAR ICRC OOK RCN re tek ak 


*GETPHENT Al* 
ns 13~----- * 
* READ OBJECT * 
: PHRASE es 


SI UICI IO ROOK 2K 


PSC1240 
OH FORO IO AOI 
OK ot 
x*AG >* EXIT 
xO Ok 


RETURN 
ae 3k SOR Ri ik doko ak a ke take ak 


est 


CHART ABQ: DFJPSCAN 
DOS/OS CCMMAND PROCESSING ROUTINE 
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CHART ABQ 


DATAGET ~ GET 
PHRASE 
DEFINED GATA 
VALUES 


DATAGET 
eK JOO AG Rot eb tk 
*  * & * 
€Al >* ENTER * 
* * *& DATAGET * 
Hm SACRO ITI OR ROR ak 
PSC1258 V 
GI RIOR ok kok kok a ak 
x0 1TSKWRD Bis 
4-5-4) ——--—* 
*WAIT ON READ * 
* OF PHRASE * 
a 
SOI DI IER iO a oR a 
PSC1L260 
RO Gia Rak gk dk ak 
*SRGHCT O1* 
aw Ll------ * 
* POINT TO % 
* TABLE 2 « 
x % 
RIOR IOI tok kak Bok ae ak 
v 
PSC1264, + * PSC1290 
* 
* *NG HK 
* * & x 
* ANY DATA *> b2* 
* VAUUES * *  # 
* * ae 
* x 
x * 
* YES 
PSC1268 Vv 
ea ok bak ggg 
x * 
* SET UP LBOP * 
*xTHRU TABLE 2,%* 
aGET SUBSCRIPT* 
* 
Se tok bak doko ide & 
PSC1274 Vv 
3k tok tok tok dk tok ak 
ee * x 
x # * * 
*€ AG —>* CONVERT * 
x * * SUBSCRIPT * 
sk * * 
ZO IO i tok go doi tog 
7 
pscl27é  * + PSC1308 
Hm * *YES  *** 
x *  * x * * 
¥#ATX> XEQ~DEFINED *> B5S* 
x % SYMBOL * « 
4% * * ok 
* * 
* * 
| NO 
v 
PSC1278 | * * PS$C1332 
x YES ex 
* x % 
* IMPLIED DO *> C2% 
x * x 
* % HK 
* * 
* x 
* NE 
PSC1282 
2 dp dom dadog tok 
* COMPUTE * eK 
* CONMGN * * * 
*LOQGATIGN AND *---> BO* 
* MCVE DATA * * % 
* VALUE x kK 
FOO A SO Rok ee 


CHART ABQ: DFJPSCAN 
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rd 
PSC128€ PSCL324 * * 
SR RR KOR * * 
4% * * Hx * *YES 
x * x * * Ok Ok * 
*BO*-->*GET NEXT DATA* *CO*> IMPLIED DO #o------ 
* x * VALUE * * oe * 
ak * D * ek * * 
RAR RIE Bok * * 
* * 
| NO 
PSC1288 v PSC1328 Vv PSC1274 
AIG FoR qo tok SEI RO ROR FOI ROOK 
ek * x * * 48K 
x * * * * * * * 
*B14#-->¥*LCGP CONTROL * * SLIDE OVER ¥*---> A6b* 
8 * * * SUBSCRIPT * * * 
ae * * * * ROK 
OIG I To RE tok ORR IOI IOR Ra koi tok 
Q------------+----- 
Vv 
PSC1290 * % PSC1332 Vv 
* * FORO RIOR RR Hot ke ak 
#4 * *NO a * * 
* oF * * ok * * 
*B2k> ANY VERBS *asSe a= *C2%-->* GET IMPLIED * 
+ * * x Ok *O0 PARAMETERS * 
ok * * Et * * 
* * RRO ROO koto a ake ake afr te 
4 * 
* YES 
€--------------- Q 
Vv 
PSCl2S¢€. *  * PSC1276 PSC1349 Vv 
* * FRO RO ROK a ROR a 
* #NO tem * COMPUTE = * 
* x ex * —_CGMMON * 
* LAST VERB *> AT* *LOCATION AND * 
* eo * * MGVE DATA * 
* % AO ok * VALUE * 
* * PEC ce SC eee e Se tes 
* * 
* YES 
(SSS SS545sSs+5>=. Q 
PSC12S8 PSC1344 Vv 
ROR OR ROK Rofo ao Ae ic 
ROR ERO RIC * * 
* * * ADJUST * 
* EXIT * *SUBSCRIPT BY * 
* CATAGET * # INCREMENT ¥* 
FoR i togok ke tok * * 
FOTO SFO FICK 
PSC13C8 PSC136) * * 
3G RG tor OI sok * * 
tok * * * *NO 
x * EXTRACT * * * 
4*B5%*-->* COMPRESSED ¥* * DO LIMIT Kees 0 
x * * SYMBOL * * PASSED * 
ae * x * * 
PPP TESS SEL. crs Sy * * 
* * HK 
* YES * x 
---------- >* Bl* 
x 
sO 
®SC1288 
PS$C1312 Vv 
J Salo tok kg ok dik 
* * 
* SET INITIAL * 
¥*SUBSCRIPT TO * 
* ONE * 
* * 
RR ak tok to 
v 
PSC1314 ¥* x 
* * 
* ¥YES 
* IMPLIED 90 * 
* ZnO 4-----~-0 
*  SUBSCRIPT< * 
* * 
* * 
* x 
* NO 
PSC1318 v 
FIO Io aa FOR foe 
* * 
* * 
*GET SUBSCRIPT* 
* * 
* * 
BOO Oto ke fa ok 
g-e orn n nee ir) 
PSC1320 Vv 
FOF tok tok OK RK 
*LUSYM D1* eo 
ed 19--~---* * * 
* GET SYMBOL *---> CO* 
* SUBSCRIPT * * x 
x * Hk 
J ROR ICR GIR I fk tok 
DOS/CS PLAN SYSTEM FLOWCHARTS CHART ARQ 


aK 
4% 
xAL * 
ax 
Rx 


BALG * * 
a *xYES 
* * 


TROD 
m2zp 
ouze 
~2 
—— 
z2zu0c 
Ovrdi 
Cn 
a 


x 
OVAD 
za 


INFUT P 
& 
x 


PSC1386 


SS eeer Terre re 
calla Al® 


SCOLLEGT inputs 
DATA 


Pi 
AIR G IGRI ICR NOK 


PSC1382 


v 
FO AO ICIS IO HORI ICI 
XINPUTSAV B54 
: SAVE Input x 
IM * 
: x 
SEO IOI IR ICICI OK gOk 


PSC1384 


Ok 
x * 


v 
FICO RO ROR ICI 
XUISKWRO BL* 


—————— 4]-----— 


heen WAIT _GN PHR * 
x O* x ENT I/O = 


aK 


PSC1386 


x 
FIG Er Oioi 20k kok ko 


HORROR ARORA ORO ROC HC 2 
REVAUUATE Al* 


x OC PHRASE- x 
¥DEF INED EXPRE* 


SIO IORI IOI RR Fok a aC 


PSC1388 


Vv 
ROR a ACK AOL AR a NER Re 
SSVMTORUT Al* 


«WRITE Synece é 
TABLE 


Fe RE IHOR 


P$C1392 


v 
PSC1394 * ss 


Vv 
BORO RR OR LOS FOR AOR 
pease cox 


x GET bkoGRaM * 
SLIT LNTG LC : 


FRI ROR ROR OR SOR teak 


* *Ng 
* EXECUTE CHECK 
ENTRIES 
* * 
* * 
* x 
* YES 
PSC1398 


Vv 
OGIO ROI OR I LORI OK 
PEP SUG tne Al* 


PSC1400 


HX 


PSC14C0 


Pei 


2 


: Check’ INPUT s--} Enos 


x x 
FRCIOR ROI Og RR i dot 


yee 


CHART ABG: DFJPSCAN 
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x 


PSC14CO | % * CHOVR 
OK * ¥*NO ROK 
KOO Ok kk * 
* EG KD VERB *> AL * 
x Ok Ok * * Lx 
ak * a He Xe 
% % 
* %* 
* YES 
PSCL4C4 
ROR ROR OR ak tok 
* * 
*xPCINT TO VERB* 
*TABLE AND GET* 
: NEXT 
| 
v 
PSCLACO % * rf CHOVR 
% *YES ses 
* * 
«* ate couvecteo » *> Als 
* x % LLx 
% * SR 
* x 
* * 
x NO 
PSC141C Vv 
2 RIOR OI Of og fk kok 
* * 
* SAVEPOINTER * 
% AND GET * 
*PHRASE ENTRY * 
% ADDRESS * 
. 
v PSC1384 
SEO Bok aE ROR ke teak ak aie ac 
*GETPHENT Al* Re 
eee | 3 --~-- - & * * 
*GET VERB PHR *---> A4* 
a ENT * * x 
x % mK 
Se Rk ok ake ok RO ak sdk 
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CKART ABQ: JFIPSCAN 1 
CUS/&S COMMAND PROCESSING ROUTINE 


PSC1472 PSL1450 
FOR CCTOR (OR I # toe 
OK Forage. Al* aK 
FINAL 4 ken wnn man am mmm * - SYMBOL TABLE 
CLEAN-UP AND *808-->* TSK PPR ke > AS* WRITE FIND TABLE IN 
PROCESSING + * * * * COMPLETICN PHRASE ENTRY 
am * * we Me Loop 
BE IO ORK IK 
x 
CHOVR * * PSC1476 SYMTBLOP SRCHCT 
x * SO RR Glog goa aie ded ak 
Het * #YES aH * * HEE FORA CROC OK Ia tok RIOR ROR OR RC ICI I 2 HCH Ok 
x & ok * kok OK * * OR * a * 
«AL % PHRASE SKIP tees O*B1*> CALL SUPPRESS * *C1 >% ENTER * *D1L >* ENTER * 
Re * * & EXECUTION * * * *  SYMTBLOP * eo Re RCHCT * 
$k * * Ho % 4 Heo FRIAR RIA AIO HACK ae ROS HOI oak ak fete 
* * FOR IOI ROI RICCI 
* * 
* NG 
| KSrHSSscsSante= KoeeSersa Ss ceS> a] 
v 
PAX1434  * * PSC1480. * * PSC1598 7 PSC1594 
* * * * SGC IORI 40% 3k ak OIRO Rotor Hor Keak Ok ae 
% *YES nial * *NO peer UL Al* * * 
PREVIOUS * a * ~----16------ * a 
* PHRASE BLANK ae as O} *B2*> INSERTED Hossa ES, ia) eee SyHB CL : * POINT TO * 
* LEVEL * + * PHRASE * ABL *PHRASE ENTRY bs 
x * ae * * * * 
* * * * SCI IOI OCR ICICI Fenn: rere 
* * * * 
* NC * YES | 
PSC1438 v PSC 1484 PSC1519 * * PSC1452 PSC1598 * * 
SR IIR Fok RR ORK ae JG OIG TO TOR a tok * o * 
x * * * * *NO Her x xYES 
* * * * * SYMBOL TABLE *  * * * * 
* CLEAR PREV. * * CALL RECALL * * WRITE *> A6* * COMPRESSED i eleeaiaieatae QO 
* CEVEL SCAN * CCMPLETE % * * PHRASE * 
* * * % HK * * 
FRI 20K Ag IOIOK a JOR IOI I Toit * * * a 
* * * * 
eOVES: % NO 
Se slsess ease sse= ie) aac a ie) 
PSC1440 Vv PSC1490 Vv PSC1516 v PSC16O04 
FOR RO A I OI Hk a FOI IO I i HOR toto FOI RR IO tok A tk FR OIE AOIOK Hof Ok 
x * * x #HSYM Box x * 
*SAVE PRESENT * * ioe, wera oineiot * SET LAST * 
* LEVEL IN * * CALL PARAMZ * #INSURE PROPER* *TABLE LENGTH * 
¥SYSTEM SWITCH me ee * . SYMBOL TAB * * TC ZERO * 
% * * * 
errrerererrrr FOI I HORE tok FOI TOIT I LGk SRO I ORO ze tok ke a 201K 
KS SSHtesS asses 0 
Vv 
PSC€1450 v PSC1494 v PSC1518 Vv PSC16c8) * * 
AO I tok BOO I I gt SOO IOI OR a Solon tir FG ROR GIO 208 40K a * * 
ae ESNAETBLOP cl* - * XDISKWRD 81% * YES 
a jae * rad 1--~--- * * 
+ AS HR >* CQMPLETE * * CALL LR=T * * WAIT IN ITS * SSeS SeS=, ) * END OF_PHRASE Base se 
a WRITE * * * READ * * ENTRY a 
ax * * * * * * % 
FEO Ra OR AOI GK ka 3 ISR OR IOK Fok FRI AOR BI i tok * x 
x x 
* NC 
RSC1452, * * PSC 1612 
* * OCR ACR IOI IO AIO IOIOk 
%% % *NO * x 
Se * PHRASE * GET _ TABLE * 
*AG%> STATEMENT b soateniatenten 6 PROCESSING * LENGTH AND * 
*¥ & & SAVE ABORT * ADJUST * 
aek * * % PCINTER = * 
* * FERC I IOI GI Ik A tote 
* * 
* YES 
PSC1456 Vv ABCRTERR v PSC1450 PSC1618° % * 
SOIC II IOI i kai kote te ak FRO CII HOR ROR ok * * 
* * ane #ERROR Alx Sb x aNO 
* ae 2-----= * * x * x 
* CALL LIST * #87 -->s PHRASE #—— => ADS* * REQUESTED Roney 2) 
* B2:aPSTSVaK< * * * PROCESSING * * * * TABLE * 
* * a8 * HK * * 
AEC IOI I ROR a +eneReeEREEKE EE o * 
* * 
* YES 
koe re een Qo eee ee 
PSC146C * * - PSC1476 PSC 1622 
* *YES tok ROI ICAI LOR IORI ACI Xe 
PHRASE SKIP * * * * * 
* OR PHRASE *> B1* % EXIT x 
ERROR * % *  SRCHCT = 
* % 4K RII ROI IOI ot 
% * PSC1480 
* * KK 
* NO ae 
teat ---->% B2¥ 
* 
KK 
Q- --+-----4---- ~a-=-0) 
{ 
PSC146é * * PSC1450 
* YES  &m% 
* x 4 * 
* PREVIOUS a> AS* 
* ERKGR * * 
x * Ee 
* * 
* * OK 
* NC * * 
SSS SSS >* BO* 
* % 
aK 
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2 Xe 
7 
*AL 
x 
Fk HEH 
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PSC1702 EDUMP 
SIO IOI IIRC ti 
4k * % Yok AGC IORI ICO SOI OI OK 
ERROR ~ *  € * SET ERROR * x Ok * 
LINKAGE TO xBOX-->* CCDE TO * *CO >* ENTER * 
PERRS x & “x POSITION IN * *  « & ~EDUMP * 
ak 2 INPUT x 010K SGI III lo IOI 
FI DIOIGI IOI IOI IO tok dak 
HRROR PSCLT71C Vv PSC1726. * 
SO IOI AIO AOR IO IK * * 
FE IO IR BOR AIOE a X ax * * * *NO 
* x % * Ok OK * * x 
>* ENTER He *B1L*D CALL ERROR — % % ERROR FILE ke 
* * ERROR % eK xX ERRAT x DEFINED % 
FORO IRR IOI SOR a IO 40% * x * * 
FOI I III OI ROK * xe 
* * 
% YES 
Vv 
PSC1668 * ~~ x PSC1722 PSC1730 V 
* * SOI ROCIO III IOK 
% *NO JOR III ROO OIG 0K * * 
* * % * x x 
* ERROR Keno - a+ -- >* EXIT * * PURGE ERROR * 
* ERROR * * FILE 
* * FIO IOI aE A foto * * 
* * FORO ICICI IOI 
* * 
* YES 
PSCl6é72, *  * PSC1732 Vv 
* * FCO ROI OIC 
x *xNO * * 
x x * 
* SIGNIFICANT Xe 0 * CALL LOCAL % 
ERROR * * %21@PERRSAX< * 
* * % * 
* * FCCC 2 IO ICO IORI RCI 
* x 
* YES 
< ee 
PSCLE76 Vv PSC1736 
SGI Io i aR kok 
* * REI IG ICI Rk aI IK 
* x % * 
* INDICATE % * EXIT * 
* ERROR FOUND — * * EDUMP * 
* * FOI RCI IOI I RICK 
SII RR EOI oi rote akake ak 
<35s-- ++ oO 
RPSCLETB Vv 
FRC IOI IOI IAC ROI Xo ak 
a * 
* SAVEREG AND * 
*CCNVERT ERRCR* 
% NO TO Es 
*EXTERNAL FORM* 
SOI I IOI 
PSC16990 Vv 
FOR og Fok Ra OI a tok xk 
*SYMTBLOP = C1* 
%r--~-] |e e e 
* FINISH * 
* STATEMENT * 
* WRITE * 
SERGI IO IO fOr ak tokok 
PSC1694 Vv 
FR OR AIR IR RIK a 
*INPUTSAV B5* 
tne finn miemi te 
* WRITE INPUT #--~---~--~ Q 
* IMAGE * 
a x 
SOR ROR IORI I RRC HOR nok ak 
Q=SAsHe5574S-455-> is} 
i 
V 
PSG1698 | * * PSC1710 
cg *YES eK 
ek * EOUMP —- GETPGM — 
* ERROR CODE *> BL* LINKAGE TO TRANSFER 
* SUPPLIED * * DUMP ERROR PROGRAM LIST 
* . a * kK FILE TO PLAN 
* *% Te 
* NO * * 
wooeennn n= >* BOX 
Rak 
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GETPGM 
HK FORO I RII tk 
* Ok 
*DO >* 
Ok 


GETPGM 
Hea AAO ACK 


ee ea ee ae 2 ok 


PSC1748 Vv 
FORO IOI TORR ROKR MOK 


*SRCHCT D1* 
Koen ll * 
*GET PGM LIST * 
* * 


* % 
FOR HOR ROR ROR OR ROR FOR 


* 


PSC1759 * 
* * 


% 
% ANY PROGRAM 
LIST 


PSC1754 
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z k x FIXED 
* % * * 
% * * * 
cS * * * 
| YES | YES 
PSC2352 Vv PSC2388 * * 
ZRII IOI ICE I IOI HOR a * * 
* % *YES 
* * * * 
x SET VALUE # * VALUE $oseses 
x TRUE Aa * NEGATIVE % 
* * * * 
JE ROR IRC I ROCIO xo ak * * 
* * 
* NO 
Qo eee oe 
PSC2354 Vv PSC2392 Vv PSC2412 
ROR HORI ARR RICK JO I IOI OR tok 20k 
xGSYM AL* * * 4K I 
ba ew eae * * * * 
al LGOK UP a * ADD .5 TO *---> BOX 
* SYMBGL * * VALUE % % * 
x * * ROK 
SEI I II IOI aR ik BORGIR RGR I x tok a ak 
Q---------------- 0 
v | 
PSC2356 * * PSC2412 PSC24C2 Vv 
* * FE II OOK RICE ak 
x KYES 4b * * 
*x ee * * % 
* GG TO SEARCH *> BOX * SUBTRACT .5 *--------- QO 
* Oe EF * FROM VALUE * 
* * oko a * 
* * JIG IOI ORR OR 
* * 
* NC 
| Q----------------- 
c v 
PSC236G * * ‘ PSC23'68 PSC241C Vv 
* * RE IGOR alo OR Rakai 40k 
* xNO tk * * 
* ko * * * 
* CCNDITIGNAL *> BOX * PLACE VALUE * 
* EXPRESSION x OF % * IN CGMMON * 
* * 4OKOK * x 
* * ARR IO RIO SOL Fak dok 
* * 
* YES 
<--------------- 0 
Vv 
PSC2364 * * P$C2412 Vv PSC2414 
* * SCOR ag OR a OI RH Ck 
* *NO 4x * TURN OFF xe 
CCNDITIONAL * x * FALSE/TRUE * 
* EXPRESSION *—--—-~-—— *BQ%——>* RSYM/WSYM & *> CO* 
TRUE x * WSYM LIT & 
* * 4k * P VALUE * sO a 
x a 2S IOI ROI IRI IK 
x * Soko 
* YES * * 
---------- >* BO 
Poca 
PSC23€8 
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etek 
* 
*¥Al 
ea 
4 HK 


USYM 


SO I RO aK a a 
* * * 
>* ENTER * 
* * USYM * 
ROR RR ROR ROR i ROR ROK 


PSC2428 V 
ROR CR fk kk ok Rooke 
oa 
* 
SET NU USER * 
EXIT RETURN # 


FIORE I ICR aK 


ae 


PSC2430, OV 
SR ROR RR ROR ak FORO RC 
4G SYM AL* 
* © 


PA 
* LOGK UP * 
* SYMBOL * 
% * 


RRR OR Rf a ROR aR ob 


PSC2436 * * * PSC2414 
* *YES obtck 
* x + ok 
% ZERG *> CO * 
* * 


x 1a 
* * tk 


* NB 


PSC2442 V 
FOR ROR Rg ta a ok ae 
a 
* 
INDICATE * 
OUTPUT i" 


SRR RR ttt ak a HO a ak 


SHE HER 


v 
PSC2444 #  # 


* *NO 
* x 

* GG TQ SEARCH ee 
bs * 


PSC2448 V 
RR IG RoR a a ak 


* 


* 
INCICATE * 


* 
pi QUTPUT 
. SUPPRESSED «o 
Deke ORR RC a ROR a He 


* 


<----------- a~=-=0 


PSC2450 Vv 
BRO ARR otk dn kok x 
% x ok a 
* * * * 
*GET USER EXIT4-~-> BO* 
* NAME x 
* x Yee ak 
SOI TOI IOI ROR AOI OI a 


GHART ABQ: CDFJPSCAN 
UGS/CS COMMAND PROCESSING ROUTINE 


PSC2456 PSC2516 
FOR ak to tok to toto 
4 * * ee 
x ok oF COMPUTE * ae ee! 
¥BO*-->* SUBSCRIPT TO * *CO*>* 
* Ok * COMMON * KK 
we * * x 
JO oR a ROR YOR IR ek 
PSC2466 


Vv 
SO OI a ROK ok 


*SYMTBLOP = C1® 
a Ti------ x 
x FINISH — * 


*SYMBCL TABLE * 
FOE RAR ROK GK Hk 


PSC2468 v 
BOI RRO KR cd 


* INPUTSAV BS* 
on 16~----=- * 


* * 
ORR tea 2 ee a ae ge ak aie ake Xe 


PSC247C V 
RR te tO aK a ak oe a 
* * 

* 


* 
*SET USER EXIT % 
* * 


* x 
FOI ROR ORR ROOK I OR aK ei 


PSC2474 Vv 
SRR OR ROR ROK 
% 


* 
* * 
+ CALL LOCAL * 

* x 


* x 
ROR Rk ke kg Ok ak ke a 


Vv 
PSC24E0 * * 
* * ¥*NO 
% ERROR NUMBER ne G 
* ZERO * 


PSC2484 Vv 
SIO ICICI tO to 
* 
* 
SET ERROR * 
IND. 4% 
FORGO ROR fot gk i Ke 


RHE 


PSC24S2 v 
JORG ROE RIOR HOtok 
* * 
* * 
a CALL LINKLCPA * 
* ERRAT * 
* % 
AOI IRI HO HOlok 


Rss SSS seer esss ii 
PSC24S56 v 
We he Re ee Re a a ak a ak 
* * 
* * 


*RESTCRE ERROR* 
$CGDE TG ZERO 


se RO HK ak ke ee ee 
PSC25C64 
RR Fk a ok ak eo a he 
* cg ek 
* GET NET * *  # 
* CHANGE AND *--~> CO* 
* APPLY TO * % — * 
* SUBSCRIPT * HH 
eR a aOR ak ak ok ok 


bOS/GS PLAN SYSTEM FLOWCHARTS 


FR ROR ROBO eK RO 


eH 


A RO ROR RO RK OK 


CHART ABQ 


LUSYM 


AE REI RICE ROI ROR ROH kT 
* Ok Ok 

*DL >* ENTER 

* * * LUSYM 
CK FOR ACR ACI ARI ROR ROR IC 


PSC 2526 Vv 
HR OR OKO Fete ke teak ok 


*LSYM A6* 
woe 20------ * 


*LOOKUP SYMBOL* 
* * 


x * 
FNC He Re ROC aR RC He AC aK ae 


PSC2 


#W 
HR 
+ 


HEHEHE 
#COOO 


* 

eo 

#OO 
HOMES HC 


PSC2542 4 
HORROR HOR CI ROK ke toa 
* 
* EXIT 
* 


LUSYM 
SOI ICICI IRC II Ifo 


He 


x 
* 
x 


GSYM -— SYMBOL 
TABL 


SY 
ABLE LOOK uP 


GSYM 

ROR OI AOI HO BON 
ENTER : 
NORIO A ROI RO 


3 Hk 
* ok 
*AL >* 
aK Ok 


GSYM 
kK BAR HOH 


PSC2552 Vv 
SOO IOI IOI Ea 
x * 
Ps * 

* TURN OFF_P x 

*VALLE oWlTCH a 


TR ROR A OR X totic 
1 


v 
PSC2554 | * * 


* 
% *YES 
* * 
% SYMEOL BUCKET 
% BLANK 


PSC2628 
Hex 
* * 
*> BT* 
* * 
tH 


<n. 


PSG2566 Vv 

Soto AGI loa Oi iotolok 
* SET TO 
* COMPRESS 
2% THREE 
x 
* 
* 


LSYM 
Jae soto 
ENTER 
JRO ACHR II OR ACI AIO 


ae koe 
x Ok 


*AG >*% 
x Ok 
eK 


HMH 


é----------- w----0 


PSC2602 
39K 
* Ok 
E *> BO* 
x * 
* HK 


v 
Psa2592. * * 
% % 


RSC2596 v 
SOR CROR GR I RCI RO aK aK a 


*DISKWRD 1% 


* GET SYM TAB * 
* IN * 


% * 
Be RC a aR ak hk Ne ale ea ake ai 


PSC2598 Vv 
FO ROI Rr Rk Ok ok kk 


INDICATE 
SYMBOL TACLE 


PSC26C2 


* HK 
Kx % 
*> BOx 
* x 
* aK 
SOR IOI IO III ICR a 


* 


* 
BS 
* 
* 
* 


CHAKT ABQ: ODFJPSCAN PC 
DOS/CS COMMAND PROCESSING ROUTINE 
* 
PSC2602 PSC2646 PSC2686 * % PSc2732c 
RO RO RE kk BOK A ok aK FRO RIOR OR toi RKC aie ve x 
am * x OK *xDISKRD BTx ca * AYES Xetotot 
x Ox * GET NEXT * Kea a 4 | ----— x kok Ok kk a 
%*BOX-->*SYMBCL TABLE * *CO%*-->* READ IN SYM * *xDO*> THIS SYMBOL *> AC 
x * % ENTRY Ma % & * TABLE * *  * TABLE LEVEL 1 * ¥* 21% 
Xe ok % HX * ek * x ok sek 
Fe OR ROH ai ee KCC IK 2 RE Xe ORO HOR BOCA aie 3 bs * 
* * 
* NO 
Rr rec rer sere--H-- ia) 
Vv v 
PSC261C. * * PSC2648 * * PSC2692 * % 
* x * x * * 
* xNO 3 * *NO * *xNO 
x * x x % % 
* BOTTOM OF kKoesses = O*xC1*> IS THIS A P Kame wn is} * CURR SYMBOL koe in 
* TABLE * * VALUE ENTRY * * TABLE IN CORE * 
% * Re * % x Ed 
% % * * * * 
* * * * Es * 
* YES * YES * YES 
PSC2612 Vv PSC2652 Vv PSC2698 * * 
ROR ROR OR ORO AOR IC aie ae FRR ROR CK ROK 2 3k Ae a ok % * 
* * x % x *NO 
* * *SET UP SHORT * * x 
*POINT TO TOP * x FORM * * SYMBOL TABLE x SS04 > 
i GF TABLE Bi - SUBSCRIPT - * BEING CREATED * 
RO IOI ROI RR ROK ke kK ROR RAO RII TOR ak ak * * 
% m* 
* YES 
RKss8rsSscasSess== Cc 
Vv 
PSC2614 * % PSC2686 PSC2654 Vv PSC27TC4 Vv 
% a ROR ROK ROR RR OK IK ak OE aK oc 2c he Ka ae ak fe i ae a fe 
* *YES ex * r * 
* ek Ok * * *KINDICATE SYM. * 
* ZERO ENTRY *> DO* * GET P VALUE * * TAB. WRITE %* 
x x * * * *NOT COMPLETE * 
% * eK XK * * * * 
% FEO A RK ROI ROK he FERC aH FH RR ROC HOR 
* * 
%* NO 
v 
PSC262C * * PSC2662 v PSC2706 Vv 
a * FR RO fe ROR ke aR a a ak a FHC Ra RO 
% ¥*NO * * *xDISKWRO Bl* 
* x * * oe 41 ------ * 
* ENTRY EQUAL 4a * SET P_VALUE * * WHAT * 
* TO SYMBOL x SWITCH * a * 
* x x a * 
x x FRO IR I OK $0 Kak ak SRR ROI GIOR aH kik ak aie 
x a 
* YES 
Vv 
PSC2624 Vv PSC2664 * % PSc2708 Vv 
2 ROK RK tok pk Ra a oe * a Fe ROR eR aK ae fe kaa Xe ae ake 
* * %* *NO *SYMTBPUT A1* 
¥*GET COMPLETE * * comer erred 16----~-- * 
* SYM TABLE * * P VALUE *ocSSSaa > *WRITE CURRENT* 
* ENTRY x NEGATIVE * * % 
* * * * a ak 
ROR ROR ROR ROR ROR ARR kok * * BORO RR ROR ac ak ake oe ea 
* * 
* YES 
HSYM PSC2670 Vv PSc2710 Vv 
FORO ROR BO aK ROK aK RR ROK AC OR ak a of 2k ate 
Ka ROR RC HO ROK HO RC ok * cd * 
x ok Ok x % * * INDICATE * 
*B6 2* ENTER * * GET P VALUE * *SYMBOL TABLE * 
ee * * RECIPROCAL * * WRITE * 
ak OK FIO I Roto tal tok tok * * * COMPLETE * 
HORE ROR ROR IK oe RCH HOR a aie a ak a ae ae ae 
kre rrr er erro 0 Retr ree reser 0 
PSC2628 *  * PSC2648 PSC2672 Vv PSC2718 Vv 
FRR ROI aK Og Reak 2k akc akc FORO ROR Rg Kak kak cate 
eH * *YES ERK * % * cd 
* ok OK CURRENT x * * ADD ENTRY * * GET DISK * 
*B7 * SYMBOL TABLE *> C1* *SUBSCRIPT AND* * ADDRESS OF * 
IN CORE x * * $suBSC_TO * * NEXT SYMBOL * 
Te * * ROKK * POINTER Ed e * TABLE * 
bd * FRR OR ROR IK 8 eI ek a ROR I tO aR aI af ak ok 9k ak ac 
& * 
%* .NO 
PSC2632 v PSC2682 Vv PSC2724 V 
FR F IK SO Ak ACI ROK FIC OR RO 2k kk FRO RE ROR tok 4c ak ak ac ake 
* * x x *DISKRD BTX 
* GET CURRENT * * SET SYMBOL * ys x 
*SYMBOL TABLE * * “BUCKET * *READ SYM TAB # 
*OISK ADDRESS x : BLANKS x : : 
FRR RO ROR ORK Hea ok ROR RR ROR RR tok kek kX FORK IK AOR tk Ot a ak ak 
PSC2636 Vv PSC2684 PSC2726 Vv PSC2592 
RB fete Re aK kk ie aK ae RK FRO IO Jota i gc ak ak teak afc 
x * MACK Fe ee tk a Rok rook ake ok ac x * ek 
* INDICATE * * % * * INDICATE salt * 
* CURRENT *x> CO* * EXIT * % CURRENT *> AT 
*SYMBOL TABLE * & " % * GSYM x * SYMBOL TAB ak x 
*xBEING READ IN * KOK SOR OR I ROR A AGH IOK 2 * NOT IN x tk 
FOR RRR ROR A ROK Fa FOR RR RC ROR II ICHOK aK ok 
DCS/OS PLAN SYSTEM FLOWCHARTS CHART ABQ 


PSC273C 
A ORR Rok Rg 
aK *xEXPER c1l* 
kx a 40------ * 
*AQ -~2%* -USYMER- * 
 * * * 
$x * * 


Ab ko kkk tok & 


PSC2736 Vv 
SOO ao dob toto 
* * 
* SET SYMBOL * 
* TABLE 
* TO INITIAL * 
* as 
BOAO AI IO 


rs 
MB 
ENTRY *---> B7 * 
TI 
ped 


PSC2628 


Cee ks 
ae: 


* 20% 
SRE 


CHART ABQ: LFJESCAN 
DCS/CS CCMMANO PROCESSING ROUTINE 


DUS/CS PLAN SYSTEM FLOWCHARTS 


CHART ABQ 


MSMGVE 
aotoK SCIGIOI I I OR RK Baki a 


PSC2 


eu 


HERR HHA 
* 

* DO ¥O 
# PRO # 
+ PZ # 


PSC2788 
SOR AOI ECR RO IR 


TO 


HHMRHEH 


% 

* 

* ACD 256 

< LENGTH 

* . 
Vv 


PSC2790 * x 
* x 


* *Y 
* 


x 7 LENGTH = 0 


* * 
* * 
* Ok 


| 

PSC2794 v 
FRI I i a RO ak tok 20K 3k 

* x 

x 


* 
*DQ LAST MOVE * 
a * 


* cg 
TOR a ea ake ab ke fe ke Re ke 3k 


Prey 


CHART ABQ: 


COS/CS CGMMAND PROCESSING ROUTINE 


ok FORO OR Rok ka Hg aie tok 


PSC2756 
x OK Ok 
*BO*X>* 
x 


* % MSMOVE 
4k 21 RR Bo IRI OK kk 


Ket 


PSC2796 


ES eK 
[| 
*> BO* 
* 
HK 


PSC2796 


OK 
* * 
-~-> BOX 
* * 


Fe 


DOS/CS PLAN SYSTEM FLOWCHARTS 


ADVSUP & 
SUPADV — 
BLANK 
SUPPRESS ION 
SUPADV 
HHO SOIR OR IGk 2k kok 
* Oe OK 
*CL >* ENTER 
* Ok ok SUP ADV 
Hex JR I ICI I IOK 
PSC2812 V 
FAIA IOI IOI KCK 
* x 
* x 
% BACKUP * 
* POINTER * 
* a 
FR RIOR ICIOR AOIO OR OF Ca 
ADVSUP 
tok SOR OR ROI OI fe sok aa Rofo ak 
kK OK 
*C3 >%* ENTER 
* oe &  ADVSUP 
HK FEI ICI ROI AIR qOfOK 
PSC2818 Vv 
FARO ORR IOI 2k ok ak a 
*CHTEST AlL* 
Men= = 4] ---- == * 


* GET NEXT * 
: CHARACTER 


FR ROR ROL a fk Fok kk ak 


v 
PSC2822, * * 
* * 


* *Y 
* 
* x 1S IT BLANK 
* 5 
* x 
Hook 
* NO 


PSC2826 V 
FO OR Rok kak doko kok ak 
a * 
* RESTORE * 
* CONDITION * 
*CODE FOR THIS* 
*” CHARACTER | * 
RRO ROK RK fk a a 
PSC2380 i 
ROR RC fa hak i fk Ka 
ok 
x EXIT 
* — SUPADV/AD VSUP 
TTT rere res se 21 
CHART ABQ 


eH 


ee 


ES 
x 


* 


Hee 


6 a 
* 
*AT 
* 
OK 


INPUT DATA 
SGAN 


DATAIN 

FOR IO AOR DK ar AOI IR 
ENTER : 
Li eaeaanns 


i= 


DATA 
reer’ 


PSC2844 Vv 
FER IRR OK I ROI 
a 


»* 
ITIAL * 
Q ZEROA 


pH IK ARR 


om 


-IN 
T 


PSC2846 v 
Set tak ak tok Rea aOR $ok a 


*CHTEST Al* 
#--=--4]—~---—* 


* GET FIRST * 
: CHARACTER : 


FORO ak kak sik keke 


v 
PSC2B48 | * * x PSC3006 
* YES ie 
* * F 
* SEMICOLON *> B3 * 
x ek 24% 
* * ACE 
x 
* * 
* NB 
Vv 
PSC2852 * * 
* x 
* *YES 
x a 
* COMMA #------- 
x % 
* * 
% * 
* NO 
PSC2858 Vv 
SOR A ICR I RO ICR AK 
ERROR Alé 
*  NOCOMMA : 
x * 
* 


x 
SR a Bak ik gk aka 


PSC2860 Vv 
ROR Rak Rok a ak kak ke ae 2k 
* x 
* % ¥ 
~->*BAGKUP INPUT * 
* “POINTER # 
FO RR a Ra ok ak ok ai ke ok 
Qn neo <= 
PSG2862 Vv 
Oe RO ke ae te ae oie ae a ak a ak 
* * 
* SET MAXIMUM # 
*NUMBER OF EXP* 
*GC TO@S TO BE* 
* BXECUTED —* 
os 
PSC2866 v 
SRI RR RR a RR 
% * Er 3 
* = SET UP * 
-->* SUBSCRIPT *---> BO* 
*REG, & BACKUP 
*INEUT PGINTER* wae 
SSROR RR ok a ake ak ak 


QHART ABQ: DFJPSCAN 
DCS/CS CCMMANO PROCESSING ROUTINE 


PSC287C PSC2896 
FIR tok ta dota xk FRR ACEO ORK tok Hk 
care * * baal *EXPEVALT Al* 
* * INITIATE * * Ho - = 30---- = 
t00%--># IMPLIECD * SCORE? * COLLECT i" 
SYMBOL * bd EXPRESSION * 
ore D4 * ee * 
Slot OE i ok ok Foe ai dA 
Vv 
PSC2872 v PSc2900, * ~~ * 
Perec gece tiers 3 * * 
* * x *YES 
* * * 
* BLANK CURR * * COMMA — 
* SYMBOL NAME * * 
* * * * 
2 tok $1 gobo tok * % 
* * 
* NO 
Vv 
PSC2874 v PSC2904 * * 
SOG Uo tol i lok * ra 
se *ADVSUP c3* * *YES 
* 4 a yd * * 
*B2 -->%* ACVANCE AND : * SEMICOLON kerma 
* ¥SUPPRESS BLA t * 
ee * * 
POC ie ae * * 
* * 
* NO 
PSC2876 v PSC2908 Vv PSC2960 
Seco ktm kak ici 2G A lO I GIG aotoiok ke 
*CENTEST AN® euorM : Aly ae hg 
xTEST FOR CENT* #TEST FOR USERA---} pox 
% SEARCH * EXITS 
* H "eee 
3 too I Hoi lok folokok Fa Haka HO Hence 
i ae ae Ae ce at ee ae an ee ee 
PSC2878 v PSC2912 Vv 
SOO oi i teak PTT ero r ere St 24 
*SUPADV CL* * * 
ken es * * 
* GET OVER * *TURN_ON_WSYM * 
. BLANKS : : TRUE Pi 
Perrrrer rere Les JOE I Gtok a tok a xO a ak 
Vv v 
PsC2880. * * 2 PSC2994 PSC2914 * * z PSC 2930 
% xNQ  #80KK * KYES eK 
x x Ox x * x Ox * 
* ALPHABETIC *> BO * * EBCDIC PLUS *> DO 
* x & 24k * * * 
* * SK * * toto 
* oe * * 
* * * * 
* YES * NO 
| Vv 
PSC2862 v PSsc2918 * * PSC2930 
2 Rao RR a aoe * * 
ea * * RYES eK 
* SET INPUT * x « * 
* IMPLIED DC * * 6CD PLUS *> DO 
* VALID * * * 
* * * * tOICK 
SISO I OR toa tak * * 
x * 
| NO 
Vv 
PSC 2884 v PSC2922 * * PSC2982 
3G GIO bok * * 
*RCALL Al* * ENO eK 
Meee 4 Q--n= * % x Ok * 
% colSye * * MINUS *> AT * 
% * * *  * 24x 
* * * * $k KOK 
3 RO OI GIGI ok * * 
* * 
| YES 
PSC2888 Vv PSC2926 Vv 
FOO I RIO tok FOR 2G I IK gat Kk 
* * * * 
*INVERT INPUT *TURN OFF WSYM 
* IMPLIEO 00 * *TRUE AND TURN * 
* AND SET * *ON WSYM FALSE 
* SYMBOL YES * % % 
a FOIE HO i Oka ak x 
PSC28S2 Vv PSC2928 Vv PSC2930 
JE IO IOI dato took JOR OI IR OIC 
ae *LITERALT Al* wee * * HK 
worst 25~2---= * TURN ON KK 
#89 "=> COLLECT +---} cot * NUMERIC *> DOx 
CITERAL = * * * NEGATIVE a 
eae ; * eae * * tokok 
3 to log tok ii tok 2A RIO OI ka toi ake 
OGS/GS PLAN SYSTEM FLOWCHARTS CHART ABQ 
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PSC2930 

Fa II OO oI tok 
Pear alee c3% 
#D0#-->4GET OVER Sign 
pr : * 
FER ROIOI AOI ROR ROR 

PSC 2934 Vv 
FOR IORI RO AOR IOK IK 
pe OE NUR Al% 


28 
GET NUMERIC x 
* CONSTANT . 


* 
FO COI OI HG a tok 
gone nen nee 0 
PSC2936 v 
SOC OR Rok ok tok tok 3k 
oad * * 
* * * 
2402 ~~>*_ SET OUTPUT * 
* *TYPE FOR WSY * 
pee * * 
AOI ROI OR RO Ia IR ai HHO. 
PSC 2938 V 
AR IO SOIR ag IK 
*WSYM - Ags 
aWRITE SINGLE i" 
VALUE : 
OIC II HOR I ICICI Fok 
v 
PSC2940 * % x PSC29638 
* NO oak x 
* x Ok % 
* MULTIPLE *> AQ * 
* SUBSCRIPTS x 24% 
* * OK 
* * 
* * 
* YES 
PSC2942 Vv 
FORO ROR IR ROI HII aK oe 
* * 
* DECREMENT * 
*SUBSCRIPT AND* 
a ADD DO % 
* INCREMENT * 
FORO RAR FOR AOR HC ah 0k 
Vv 
PSC2946 * = * 
* x 
* *NO 
* * 
* SUBSCRIPT Kono > 
* EQUAL TO END * 
x * 
* * 
* * 
* YES 
PSC 2950 V PSC296€ 
BER IG OI a yok fk 
* * dR IK 
* * * x 
x RESTORE %e-—> AL * 
* SUBSCRIPT * * 24% 
* * eI HOK 
RIO EO CII a OK fk 
* 
PSC2956, * * 
* * 
otek * xNO 
kk % 
*DB * PHREXP %—---~--0 
ek 
tok * * 
* * 
* * 
* YES 
Vv 
PSC2960 | % * . PSC2968 
eK * ANQ 42k 
kK ok x ek x 
*D9%> INPUT IMPLIED | *> A2 >* 
ek Fi 00 ON % Ok 24% 
ak x x HORE 
* * 
* * XORIOK 
* YES * % 
waa ann AO * 
* 24% 
FOI 


CFART ABQ: DFJPSCAN 
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xX 
PSC2964 PSC2994 * * 
HORE My Be ae Re ae A ee ae ae he x x 
kt *ERROR Alx 4a * *YES 
x ok as o a x 
*AQ -->* =-IMPEDR-= *BO x SEMICGLON Meon---- 
* * * % % * cs % - 
ROHN MK x % Xe ak * bd 
ROC te a tx. kak ko ake ke ak & * 
x * 
| No 
3 Vv 
PSC2966 Vv PSC2998 * PSC2892 
NOR ROR ek IO KORO ae 2 x * 
KK * * x xNO He HERE A 
a % cd x cod * * bd 
¥Al —-># TURN OFF x * COMMA *> BO x 
x &* "x IVPLIED CO * x Kk 23K 
16 3 % % * % WHR 
HK Ae BCS NOR HOR Re ROO A % * 
* * 
| % YES 
PSC2968 v PSC30C2 PSC2874 
FRE ACR ROI ORC aR aK IC aK ai a Xe ROR ROK RORCROR ROR ae a 
Ok * bd * * eK HK 
* * x x x x * 
*A2 —->* TURN OFF x * INCREMENT %#--> B2 * 
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x * * x 
x 7 * x 
* NC * YES 
Vv 
PSC4348 * # PSC4360 PSC4384 Vv 
% * ROR ROR Ok ek tek tote ak ok ak 
x RYES OK * x 
x a * TURN OFF * 
* MENUS *> Bs * SINGLE * 
* * * LOGICAL * 
bd * eRe % % 
* % JI ICO HORI IOI RACK 5k 
* * 
* NG 
Vv 
PSC4352, *  * RRETURN PSC4386 
x * Sof a aI g Fatok aot 
x AND GOK 2 * aI 
% * * * x Bs 
* OPERATOR # *> BO * *TURN ON WFALS *> CO* 
NULL * & 40% * ee OK 
x x HR * Xx HK 
* x 2 OR I I ROR zak ak 
* * AK 
* YES x + 
---<=----- >* BOX 
ERC 
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We 
* 
*CO 
* 

RK 


XK 
x 


*C3 
x 
wok 


* 
PSC4388 * * RRETURN 
* AYES 40K % 
OK ok * ARITHMETIC 
«> MINUS SIGN *> BO * HIER2 
X x Ok 40% PROCESSING 
x * FO ROK 
* * 
* * 
* NO 
PSC4390 Vv RRETURN HIER2A 
ROI I IO FOF RR 
* * dotokok FO ROR IORI IK i kk 
x * Ok x * x 
*TURN ON WTRUE *> BO * * ENTER * 
o * Oe GO* * HIER2A * 
x Rott FOR OR IR I HOR AOR kek eae 
FORO ROR Ra ROK ak ake 
PSC4392 PSC4416 V 
CIRO SOIR 20K Ik 20% KX FOR OR IO IO IO AG 
* * *SUPADV C1% 
* * ee * 
*PLACE RESULT * * SUPPRESS * 
* IN ACC * * BLANKS * 
x * * * 
FOI OIG IOI tok dak FOO CR RO HOR IOI I FOK 
PSC4394 Vv PSC4418 v 
JOR I IOI SOR dol tok tokoie FERRO RO HOR ROI IK 
* * FRCALL A1l* 
* * TURN OFF * teeta 402-33 * 
k-— > SINGLE * * RETRIEVAL * 
* : LOGICAL * * = 
OO ta a Or tok i tok SE RI IDIO TOR ROI Oto 
PSC4396 Vv PSC4424 * * 
SOK galot ok akak dak kee x * * 
*RCALL Al* 48K x *YES 
x--- == Q------ * a * 
* HIER2A * *D4 * SLASH $2 SssSen 
x * xk 
x * HICK * * 
FR ROR ROR IORI tok ak ak ak * * 
* * 
* NO 
v 
PSC4398 * * PSC4426 * * RRETURNA 
* * x % 
* *xYES * ANG Ok xOlOK 
* * kk # 
x MINUS RSS 0 * ASTERISK *> BO * 
* 40* 
cs * * * OO 
x * * * 
% * x * 
* NO * YES 
x ee ee ee 
PSC4406 V PSC4340 PSC4432 Vv 
2 Roto ok sk dk FRR II OR Hk Rok Rea KK 
* * wok * % 
* * * * *PLACE RESULT * 
*ADD RESULT TO*--~> A6* * IN ACC AND * 
* ACC % * * *SAVE OPERATOR* 
* * Ok * * 
2 IOI aOR gokat ka FOR ROR IRR Rak Ra ek eae 
7 eater 0 
PSC4410 Vv PSC4349 PSC4436 v 
JO RR i took take doko ak ak SR I I a tok a ROR Rat 
* set *xADVSUP c3% 
* SUBTRACT * * * x 22------ % 
%* RESULT FROM *---> A6* *NEXT OPERAND * 
*ACC AND PLACE* * * * * 
* IN RESJLT * RK * * 
FOR ROR RII ROI ROR HOR KC ac FEI IORI IIE IOI OK tok 
PSC 4438 v 
OIRO ROI XR bok Bako 
*RCALL A\* 
xa s 40------ * 
* RETRIEVA * 
* * 
* * 
FOR RO ROR IORI ROR IOI Rk 
Vv 
PSC4442 * * PSC445% 
* AYES etotok 
cd ak % * 
* OPERATOR # *> AL * 
SLASH % Ke BOK 
* Fe RRO 
* * 
* x SOR HO 
* NO * * 
Sar alae ee esc >% AD & 
* 3q 
HRI 
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PSC4446 PSC4424 
SEIOR RR RR rr Rak aka ak 
KK * % FORK 
* % * MULTIPLY % * * 
*AQ ~->*RESLLT BY ACC #---> D4 % 
* * “AND PLACE IN * %* 384 
HK x RESULT * cer sd 
SOR ROK ROR IR ka xk ak 
PSC4450 PSC4424 
SRO I I toi gotok tik 
HK * * Kt 
*« & *DIVIDG ACC BY* * * 
*AL -->* RESULT AND *=~-> 04 * 
Me * PLACE IN * % 38% 
we x RESULT * xO 
AI OICI HOR IOI OR RR aK 
EXPRESSION 
OPERAND VALUE 
RETRIEVE 
ARITHMETIC 
ENTRY 
RETRIEVA 
SRO OR RoI OR A a tok 
* * 
* ENTER * 
* ETRIEVA * 
ge 3b hk aed ak ae a eke fe ak 
PSC4468 v 
JO OR ICO ao goiototot: 
FEOLNUNT Als 
: Collect * 
*  AUMERIC * 
* x 
2 CIO FoI Rok a foiok ae 
V 
PSC4470 | * * ss RRETURN 
* *YES kao 
* Ok x 
* NUMERIC *> BO * 
* * * 40% 
« x ROKK 
* % 
* * 
* NC 
PSC4472 Vv 
JOR GIOR IOI RK ot ak ak a 
* 
*SBT OPERATOR * 
* TO EBCOIC * 
: RIGHT PAREN x 
JOR AI IOI ARE cae a a Xe ak 
PSC4474 * * PSC4484 
* *YES ee 
* * * 
* INPUT EBCDIC *> B1L¥ 
* LBFT PAREN * * % 
x * soto 
* * 
* * 
* NG 
PSC4478 Vv 
SRR ROR a ok $k ak dete xe 
* . tok x 


*SET OPERATOR * * % 
*TOQ BCD RIGHT ee BOs 
x PAREN * 
* a * eae? 
ARR Rok tok dk ictook 
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* 
PSC4480 * * PSC4514 PSC 4560 
* * SO Rok aOR 20k fotokoke ie SRC ORIOL IK I ROC HK aK 
a * *NO %% *CHTEST Al* wx & CGMPUTE % 
* x % * x , octet’ 41=-=-—— * xk *SUBSCRIPT_AND* 
*BO*> INPUT BCD === = O*CC*-->* TEST FOR * *DO0*-->* CONVERT TO x 
¥ LEFT PAREN * bas * SYMBOL * * LOATING * 
em * * Bed x % Fok * POINT * 
* * FR ROR FOO FOR ROR SIRO ROI TOI Khe Soke ak ok 
* * 
* YES 
v Vv 
PSC44E4 Vv PSC45l0 *  * PSC4574 * 
SRR ROI RO ROR IC ar x * * ” 
baled *RCALL AlL* * *YES ae * *NQO 
x Ok Hee 4 0---- = * * * * x #& OPERATOR # a 
¥#B1*-->* ARITHEXP x x AL PHABETIC %e-- 0*D01*> EBCDIC RIGHT koe oH - 
x & * * * * x oe Ok PAREN * 
mK * * * x Ok * x 
SO to koko gotog a kok * * * * 
* x % * 
* NO * YES 
Casenerneam ee 
v 
PSC44E@ * * PSC3236 PSC4518 v RRETURN PSC4578 
* * eR RO ZO I IGE ROR HOt ie BRIG ok kook tok kako: 
* AYES Fok x SEXPER c1* CHO * 
* x Ox * xk --40----- = x * x x 
x INPUT # *> AL * * ~EXPFER~ pense BO * * SET RESULT * 
OPERATOR xk 27% * x * 40% * FALSE * 
* * Ako Ok x * BOK AK * * 
* * SCR REI kde kok ak SERIO I aOR tor 
* * 
* NO 
0. — a ee 
| Y 
PSC4492 v RRETURN PSC4524 Vv PSC4580 * * RRETURKN 
2G lok Riot ok dost tok SOO III AK ao eat kok ak * 
“EXPER Cix a RK * * * KYES eiktok 
----- 40-----~* x * * TURN ON Sa * * * OX a 
* UNBALER x---> BO * * FORMATION * * RSYM FALSE *x> BC * 
x * * 40% * LEGAL * * x & ACK 
* * HE * * * x ROK ROK 
SOIC IGE for FR AR A BORO aK ak * * 
x * 
* NO 
PSC4525 Vv PSC 4584 Vv RRETUPN 
3a RO I Ro gc teak ak FROR OR ROR ok a AIO aK 
#RCALL Als x * FOI 
----- 40------ * co “ 
LOGICAL ENTRY “ COLSYM x * SET RESULT *=---> BC * 
* * TRUE Ok AO 
* * * % He HK 
FOR ROR AK ROO HK IK K SCR ROR IR a ROK A RK aoe 
(G-~+~+-+------------- 
v y 
RETRIEVL ee * * x PSC4588 | * a ‘ RRETURN 
oR ak RK * *NO * ANQ koko 
* * x * x Ok % 
* ENTER * % Sa@ FORMATION er Ssee> * LOGICAL VALUE x> BO % 
* RETRIEV * * * * * Ok AC x 
RRR * % x * ROK a 
* * * * 
* * * * 
* YES * YES 
PSC45CO PSC4534 Vv PSC4574 PSC4592 v RRETUPN 
SA ASMEA EE SENT FICK OO RO Ha Xk FOR RIOR I aR tote 
#RSYM A2* tk rd a Ae a 
*SET OPERATOR ; “Wi seis 1?------ * Ok * Kk 
* TO EBCDIC * x GET VALUE %*---> DL* * TURN ON x> BC x 
* RIGHT PAREN * * rn * LOGICAL Oe GR 
x * * * OKIE * fe kK x 
ROR IO RR SIO RRO a Rik a JOO ICR ICI ACHR OR tc 
0 + ee ee ee ee 
Y | 
PSC45C2) * * PSC4538 Vv 
* * FRO RR BOR OR tok ke ak 
+ xNO % x 
* x x * 
* INPUT EBCDIC Kame > * TURN CFF * 
* yt GFT PAREN ‘ * . SUBSCRIPT Pal 
* x FOI RRR IK Rk i aK xc 
x Cs 
* YES 
PSC45C6 v PSC4549 v 
FIO RoR tf ROI I SO ROR ROR OK ak ak 
SRCALL 7 Al* ResyM Als 
x LOGICALT : Sessa aceT SUBSCRIPTH 
* * M4 * 
SO ROR ip a XO tk FOI CCR IOI ROR CROOK ac 
] en ee ee 
PSC4512 Vv PSC4542 V 
FRAG IO kok dda FORO SOR IOR ea aice ak 
* * ee * * 4K 
* * * * % O&K * 
* DECREMENT *---> CO* %* TURN OFF *> 00% 
* POINTER *& * — % * RFALS,;RTRUE  * 
x * eK * * fekok 
Se Ra ea oe ak ee aa aK FORO Ok k totake caf ak a ac 


RC 
kK 
a 
*AL >* 
ek 
a OK 
PSC4 
PSC4 
* 
Pd 
PSC4 
PSC4 


ALL 
ACR RIOR AOR SOK a ae 


610 V 
XO ROI ORI IR HORI 
* 


x 
* SET POINTER * 
*TQ RCALL SAVE* 
* AREA & SAVE * 
a ACC % 
FORO ROI ROI RoR at ke 


v 
616. * 
* 


* xy 


te 

* 
SAVE AREA 

FULL * 


* * 
ex 
* NG 


BOI IIR bob ak a ato rok 
#SET OPERATOR bs 


2 
* I ENT 


634 
ROR Ok 

TO $ 
ROR NOI 


HHH 


Ss 


PSC4652 
kK 
* x 
«> BS* 
% * 
Pers 
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RRETURN 


: HO a Ke ROC ae 
6 De Ree ae a ai ie a a ic a 2k ie OK * * 
% Ok Ok % * * o%* TURN OFF * 
%BO >* ENTER * EXPRESSION *DOX—>*k COMMA & * 
OK x ERRCR ROUTINE x * % LOGICAL x 
% XK RM Hk RO a tok ok Kx a RESULT * 
he he ake Re 7k ek aK aK a ke fe ote 
gee base see secs al 
EXPER BSC4692 9°" * J 
RK HOR ROR ROR TORO OIC Hea cd *YES 
RECURSIVE x kk xk * 
RETURN KCL > ENTER * *D1 * SEMICOLON a e 
LINKAGE EXPE a: * 
Fe I ROR ROK Foti ak ok ak ee te x a 
cd ae 
* * 
| * NO | 
PSC4638 Vv PSC4662 Vv PSC4696 * * 
ROR ROR ROR ak ROK ae ae 4% ROR Rok kok qOK YOK ROK ak * cd 
x % 2 * * *YES 
* GET RCALL * * * * 
*SAVE AREA AND*® * SET COMMA * * COMMA keno > 
*” DECREMENT * * * * 
* * %* xe * ae 
aR BORK HOR he 2k Xe eke ae ae 3c FRR IO ROK ai a HO XK a ae * bg 
x * 
* NO 
Krenn --- 80 
Vv 
PSC4644 v PSC4668. * PSC4698 V 
FR ok ak Re ie ake Re ak ok ai % % ROR RRC ROK RC 2k ke fk a 
* * * *YES *CHTEST Al* 
* GET ACC, * : Poke 41----== 
* OPERATOR & * * INPUT STREAM #o------ ) x SLIDE re D 
* RETURN * * EXPRESSION * # x 
* ADDRESS * * * x # 
FRR a Ro he ke Oa ae ak took a x A ROR ROK ak ok te 2k ak kek ak 
* * 
* NO 
Q----------------- 0 
PSC465C PSC4672 v PSC4700 
Vv A ROK CK eK aK 2 ok 
ROR ea ok ak kek teak x x Es FO RO ROK ROC ak ek ake ok ak 
a x * % x kk * 
x EXIT * * ADD ONE TO. * #4 K>* EXIT * 
* TO CALLER * *ERROR NUMBER * x ok Ok EXPE x 
OR IR RCC fe Re a aC aK OK * * wo whe Rk ta RRR a ae ake af ak ake 
SOK ge aka tok gk 3 ak kk a 
v 
PSC4652 PSC4674 # 
eo ak ae ae ae te oe ae ae ok ak Xe * * 
4K *EXPER c1* * *YES 
KOK keene 4C-----= * * 
*B5%-—>* -RECALLER- * * PHRASE DEFINE | *------ a) 
a ae: * EXPRESSION  * 
Ok * * x * 
eR ea te keke Blak kk * % 
x cd 
| NO 
PSC4654 PSC4676 Vv 
Re ROR ERO a a ok a I IK EXC SR RR he ok ke fk Rk a 2k 
ek * 5s * x 
* oo 9% SET POINTER * x x 
*B6 -->* TO FIRST OF *----—---- * ADD ONE TO. * 
x o% "# RCALL SAVE * XERRCR NUMBER * 
OK x AREA * * * 
Re oh aR i ah ok af a aie ae hea ROR Rg Ro 2 a he ae ak 
ko n-n------ === rs) 
PSC4678 Vv 
eR kok Rete i tk Sek tok ak 
x x 
* sd 
#REPLACE ERROR* 
x NUMBER x 
CRO I ROR RK 2K 2 a aK akc 
é--------------- -0 
PSC4680 Vv 
RRR Fak tak 2K ea kc aie 
*ERROR ALx 
komo 12------ * 
*ERROR NUMBER * 
* bs 
* * 
JCC ICRI IIR Rak a 
V 
PSC4682, # PSC4700 
* *NO ak ak ak 
% * * 
* TG COMMA *> Dax 
Ef * SFO 
* xX 
* x HK A 
& YES ek 
ane aie---- >* DO* 
He 
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CHTEST 
sete SIO IDIOT TO OE 20K 


# 
* 
ao 
ex 
ea 
“#m 
Wy 


FORO RR RR 


PSC4722 


v 

ek be AO Bok de tk teak 
ed 
4 EXI 
* SPECIAL 
2 SOR Ok 


PSC4724 ¥ + 


ak * *NO 
* * * 


* 
*A5 * NE 
x ke ok 
sek * % 


PSC4728 v 
SR IE tO 


*INPUTRO Al*x 
Kae ee eee % 
¥*GET N&XT RECO* 
* * 


%* * 
Re RO RO 2k 


PSC4 
wee 


730 Vv 

TTC Pett eer eS 3 
* * 
* o* * * 
*AT ~->*GET NEXT CHAR* 
x & * * 


ok * * 
Fe RO Rk tok ake ea aoe 


PSC4 


Vv 
SER a Ik gob goto 
EXIT 
CHTEST 
aeRO OR eit to th 


Ret 


eH 


HEH 


*B1 2* ENTER 


4¥B7 d* ENTER 
x ok & D 
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ax FRC QI a foi tok took 
x Ok & 
DISKWRO — *CO*>* EXIT 
CISK 1/0 WAIT * * * RETURN 
Bok 3 OIOROI I AI IG IC 


DISKWRD 


FR Re Se ok oie ok eae ke a ak 
x 


EH 


* *  OLSKWRO 
FAO IO i lok tok 


PSCAS4E 

AR ROR tk ko ok ake 
* 
* 
* 


eee 

zm 

2x 
a 
4 


DISKhT - DISK 
WRITE 


DISKK#T 
SOI RRO Kok ak doi ak doo 


* 
wo 
> 
v 
* 
m 
dz 
4 
m 
es) 
eH 


PSC4S4E 
eK eK 
a * 
* * 
*SET_UP WRITE #---~~----- G 
* OPERATION * 


2 RR tok kA RK KK 


DISKRD ~ DISK 
READ 


DISKRO 


26 ROR gk 2 ok ok 
x Ok 


Fi) 

RK 

Pp 
HHH 


Ae RO ak a a ok ak 


PSC49E2 


5 Vv 
JBI ak tok i tote 
* 


x 
SET-UP READ * 
GPERATION 


9 
* 
* 
& 
* 
* 
* 
Wek RO aR tk a dk 


Keon naa --------0 


Leechs MhOKSKRES 
0K He 
* * * 
EXECUTE DISK --> CO* 
1/0 * * 


Re 


PSC4956 
aed 
* 


5 ea 2 a ok ok ik ak ak rok 
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PSTSV 
FORO a aR gO aOR aa a 
* % 
* START * 
* PSTSV 
SOR OICIO  i crak Ok kok ak 
DEJPSTSV = 
STATEMENT 
SAVE 
PRCCESSING 
v 
PST520 | * * PST1440 
* AYES fobs 
* x & 4 
* IS THIS AN *> B4 * 
* IMPLICIT SAVE * * 2% 
* % KK 
% x 
x x 
x NC 
PST54G v 
Sa ACR aR ar kt kk ak ak ake Xe 
2X * 
*SET THE FILE * 
*CTL BLOCK TO * 
: LOR Sw 2 * 
SOR ROR AIC ROR ROR Bok 
Vv 
PST560, * * 
* * 
* *YES 
cs * 
* IS THE FILE er fa) 
x OPEN % 
% * 
* * 
* % 
* NO 
PST58G6 Vv 
Bie HR aie Ro ROI A ae a RO aK Ae ek 
x 2 
QPEN SAVE 
x FILE 
SOO IO ROR Boi kok 
PST590 Vv 
DR aR Re ae bE a 2k Be OK ie ae 
x * 
* SET CURRENT * 
*FILE SIZE TO * 
x 28 * 
* 
FOR A RR aR aR em ak a ak a 
<----- os lone atteataataatead 0 
estore v 
OR RO a RR a a ae ie ke a a a a ak aK 
a READ 2-WORD * 
> HDR ANDO 
* 26-WORD CTL * 
BLOCK 
SOK eR RO aie aka a ae 
PST63C * x P PST770 
* *YES RAR, 
* 1S FIRST FILE * — * % 
% WORD LOGICAL *> BS* 
* TRUE «Ok % 
x * HO 
* * 
* * 
* ND 
v 
POTORC « x * . PST840 
* *YES HK 
* * * a 
* IS THLS SAVED *> B8* 
* EXEGUTION * 
x ERK 
m a 
x * kK 
* NO * 
wweworroere >* BOX 
* * 
ea 
PST660 
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ms) 
“ 
+ 


RHHHHHED 


PST700 Vv 
peeheasas Ohe ere 


x SEL CHAINED ‘ 
* CONTROL 


* INDICATOR oFrs 
Jer Cone Ie 


\ 
' 
1 


PST720 v 
eo ea a a afc ae ae 2 ok 9k ae ae ate 
a 
* SET 25-WORD * 
*CCNTROL BLOCK* 
+ TO FALSE * 


* 
ROR RR RR ROR ROR AC ak a 


Vv 
FERRO AOR I A A a ak dea 


HEADER * 
6-WORD 

acK TO * 
LE 

FRR OK Nok tke 


Heh 


PST770 Vv 

OR Re ok a ea a RK ae ac 

eH : * 
* * * 
t654-->4 SET CURRENT * 
* FILE SIZE * 

eee: x * 


2 Re ke a ak ak tak ae 


Vv 
PST810 * PST930 
% FYES Hoke 
% x x * 
* IS _ THIS SAVED *> C3%* 
a XECUTION x Oe 
* setOk 
* x 
x Ok 
x NO 
Vv 
" % * PST1500 
x KY ES kam 
% x * * 
* 1S THIS *> B7 * 
* IMPLICIT SAVE * % 2% 
* * IRR He Ke 
x x 
* * YOO 
% NO kk 
we ewe mane DK C7 * 
* 3k 
OK OK 
PST2630 
PST84C 
JERI RIOR 4K 
aK x * 
Kk Ok CLEAR * 
*BE%—-~>%* STATEMENT * 
Syae *SAVE SWITCHES* 
FRO ROR BO Re RR a a akc 
PST880 Vv 
SORE OR ROR IR AOR ROR aK ae 
x : Sem 
x * 
*SET ECGDE TQ pues cos 
* FILE NUMBER - * 
x ee 
Sab fede cteiakaitok fon 
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PST890 
AOR ROO AOI a OK deok 
x * * 
Xk * * 
*CO¥-->*SET ERNUM TO * 
xO * 171 % 
ced % * 
JERI HOF a 2K Xk 
€{--------------- 
PST900 Vv 
JAIRO RICK ok kick ak fe 
ak x * 
Hoe a TURN ON * 
*C1*-->*SYSTEM ERROR * 
ok * BIT * 
3k * 
ORR FOI ROR OK kk a ak aK 
PST910 
JOR RIOR $k kek 
x * 
* EX * 
* ERROR nN 1,N2< * 
SRI SOIR I Ra KOK kc 
PST930 
JOR ROR ROR a AOR aR a hk 2k 
Re * * 
xX & ACCESS * 
*CZB%——>%* STATEMENT * 
* * NUMBER TO * 
oe % EXECUTE * 
FORO IOI IO ok ak xo 
PST950. * * 5 PST1079 
4K * KYES AK 
ek OO x xX * 
*C4%> IS_THE ST NO. *> DO* 
* * IST CTL BLOCK * * a 
RK * * ee 
* x 
% * 
| NO 
Vv 
PST970 * % 
x * 
x xYES 
% IS THERE * 
* ANOTHER : iene 
%* CONTROL BLOCK * 
* * 
* * 
% * 
* NGO 
PST990 Vv 
SCR ROR TOROR 2K FOR IK 
wo * ok 
x Ox * x 
*C6*-->*SET ERNUM TO * 
x Ok % 172 * 
¥K x * 
SOO RIOR R RRO Ca 
PST1000 Vv 
JGR Ota 2 hak i ROI IK 
* * 
*SET_ECODc TO * 
* STATEMENT 9 *--------- 
. NUMBER * 


iE ORO ROR OR i ROK a aOR a 


PST1039 
ROICICIGICI CR ROR IOI CIC I ROR IA IOI 


% * 
REAC 26 WORD 
CTL BLOCK * 


RRR RR BOR RR fe ak dice ok 
PST1LO50 Vv PST950 
FRO ROR OK Sok Xf Ok tok 
x * sek 
* DECREMENT > * 
*SEARCH COUNT *---> C4* 
* BY 25 * 
* grrr 


JAH IE OR GOI 
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* 
PST1070 * * PsT9gge 
* * 
* xNO KOK 
x ok DOES THE ee 
*DO*> STATEMENT *> COX 
xk ok EXIST x Ok * 
* x At 
x * 
* Es 
* YES 
PST109C v 
FR CROCCO 23 I ROR ICO Hak a 
% READ * 
STATEMENT 
* INTO MEMORY % 
SOROIOR fOr ROR ROR ak 08 
V 
PST1110, * % 
* % 
x xYES 
* WAS PROPER * 
* STATEMENT Reeorsnet 
* READ % 
* % 
oS x 
* * 
* NO | 
| 
PST1139 
SCI RRO 2K a BO EO Rok. { 
x x 
* Ey 
*SET ERNUM TO * 
x 73 a 
Fok kale dk ed 
| 
| 
} 
PST1140 Vv PsT9can | 
FOR ICI a BOK Hox 
cd a Ho \ 
*SET ECODE TQ * * al | 
* ERRONEQUS *---> C1* 
* NUMBER % x A | 
x x soto 
FOR ROR OK ROR RC KOI KOK Feak | 
| 
{ 
Q----------------- 0 
| 
Vv 
PSTLL70| * * PSTL2EC 
x 
* AN Xk te 
* TS CURRENT OK x 
* ST. LAST 19 *> Al * 
* BE EXECUTED * 2* 
x eres 
x * 
% * 
* YES 
PST1190 
BR ROI ICO II I Il 
x me 
x * * 
*D6 -->* RESET ADR * 
x * = SWITCH 2 : 
AR OF IGOR ak ak ake ak ak 
PST1200 
FEIT RAIA I 
a 
7 : 
*CALC CISP TO * 
* SAVED ST. * 
x a 
SOR CRO UOROROR FOR ROOK 
PST1220 Vv 
38 CCI OIG ROR im mom i i tO ok gC 
* * 
READ SAVED 
* STATMENT * 
SRO ROI IO OR BOI Rote 
PST1239 Vv 
JOC IOIOR RRR to 
2 x RACH 
* SET FILE x * ze 
* BLOCK 1 TO *~---> AG * 
* SWITCH 1 x mp 2m 
* cS ROOK IK 
FOR I ROR IC SOK dot i ick 


do 


40% 
# 
AL 
ok 
we 


HK 
#A5 
x 


x 


PST125C 
2 Rok Ako xsi i teak 


* 
* 
* 


PST126C 
LENA ARATE EASES 
x 
* *CALC UISP TO . 
Pace SAVED * 
be STATEMENT * 
* 


KOR AOI II Ne ag KX 


PST1z 


PST1<e$0 v 
SOR RO Ia SO OR Ok 


eae 


ZORETCH WORD 2 


# 
& 
INCREMENT * 
* 
* 
ROR AC Ne aia ae RE fe ak 


Vv 
PST1L3CG * * 


PST1370 
* * 
* *NO HK 
* IS SEARCHED * * * 
x FCR ST. IN *> B1l* 
% THIS CTL * * 
*  sLOCK  * Ik 
% * 
* * 
* YES 
< me ee a ee ne ee 
v 
PST131€ * * - PST1370 
% #nNO HR 
x * x # * 
*> DOES ST. *> Bl* 
xo EXIST xR % 
* * wk 
* * 
po 
* YES 
PST132G v 
Fe RO dak a i kak 
* * 
x * 
* INC SaWe 2 * 
x x 
* * 
FEI ROR RO RR aK a a 
Vv 
PST133C * % “ PST1190 
* *YES halal 
* LS SEARCHED * * 
% FOR GeT. LAST > Do * 
* EXEC. x * 1* 
* * HH 
* * 
* * 
* NG 
v 
SOR IR I RGR Heke get ab a a 
x * 
x * 
% IRCREMENT * 
EO PARCHED FOR - 
SO GTI IC tak gk 2k ak 
Vv 
PST1340. * * 
x * 
* *NO 
* ARE wE AT END * 
% UF CONTROL tS 
* BLOCK * 
x % 
% * 
x x WRK 
* YES * * 
----+----- >* BOx 
x 
RK 


CHART ABS: DFJPSTSV 


DGS/CS STATEMENT SAVE FROCESSING ROUTINE 


A NEw CONTROL 
BLGCK IS 
REQUIRED 
& 
PST137C0 * * 5 PST1190 
* 
#% * eNO ROKK 
x * * IS THERE A xk * 
*B1*>, NEw CONTROL *> D6 * 
rn BLOCK * * 1* 
4X * Ea RR 
* * 
% * 
* YES 
PST1390 v 
JQ IER IOI OR Rol RR I OK IK a 
* x 
READ NEW 
* CCNTRGL 6LOCK * 
FORGO Rolo a OK sok 
PST14CO Vv PST1310 
ROR ROR i Rok kop ae ak sae 
* * ok 
*SET SEARCH TO* % * 
* START CF #—--> AS* 
* BLOCK * * * 
* * HA 
GO a dom kg tok toto 
PST1440 
2a ROlofo io kok 
HHH * * 
te! * INITIALIZE * 
ao Pian F.C.B. FOR * 
254 * 
ak : * 
2 OR IO AE SOK ok 
PST14E0 v 
FOG RG ioiiok dob kk 
* x 
FIND FILE 
eR ROR a a ap dO OK 
v 
PST1460 * * PST61L0 
* SY ES Fox 
* Is FILE Le * 
sc LARGER THAN *> AT * 
x 28 WORDS * * 1L¥ 
* * RK 
x x 
* * sok kok 
* NO % * 
an--n------ >* BO * 
x [xk 
SRIOK 
PST660 
PST1500 
Ceo LL ht eee ts ed 
Ok x * 
x OK x x 
¥B7 * INPUT, READ * 
x  * * PHRASE * 
aK * 
SEO IRR RII ok 
PST1520 Vv 
RESBREE LES ENS 6 
* 
* 7 
*INITIALIZE ST* 
: NBR TO ‘ 
JOR ICICI IORI AOR AIR a 
PST1520 Vv PST1540 
3 Rofo og ici iag aR ok 
* aa 
* SET LOOP TO * * x 
*EXTRACT UP TO*---> CO* 
* PHR.»e LGTH * * 
* Hoke 


RRR SO ROR ROR NOR ROK 


DOS/CS PLAN SYSTEM FLOWCHARTS 


PST1540 
AOR CIRO OK 1 Hk 


eK oe x 
* me x 
*CO*> PUNPKy GET * 
OO CHARACTER * 
ee * x 


FORO AOR RIOR HARA 


Vv 
PST1560 * * 
* * 
* *YES 
% * 
* 1S CHARACTER Koma 
* A BLANK * 
* * 
* * 
* * 
* NG 
v 
PST1580 * * 
* * 
* ¥ND 
x % 
* 1S CHARACTER Heo 0 
A NUMERIC * 
cd x 
* * 
% * 
* YES 
PST1590 Vv 
SOR ROR ROR ACEI I a HO ac 
x * 
* BUILD NEW * 
* CHAR TO ST. * 
* NBRe x 
* x 
FI RO ROI Rk dot a 
PST1i609 v 
2 RGR RG fot kak ak 
Ss x 
* PPACK; SET * 
* POS _IN PHRAS * 
* TO BLANK % 
* x 
SRO Rn ROK kok i 
ae ee ee 
PST1610 Vv PST1540 
2 Rofo i tok dol tok ac 
* * Ie ROK 
* x * * 
* SET TO NEXT *---> CO* 
* CHAR % * % 
x * ROKK 
2 i OR gg abot ak ak 
Q-- 9 0 
PST1630 Vv 
FOR tC RO ROK SOR FR 
ate * x 
* * * 
#6 Pome SET SEARCH * 
* MAX TO 25 * 
Saar * * 
FRR ORR RRR Ok ae ak ak. 
v 
PST1650 * * PST3080 
x 
x *NO He ROK HC 
* [IS ST. NBR. * * * 
% IN THIS SRCH *x> AS * 
* BLOCK xe 4k 
* * ARK HK 
* * 
* * 
* YES 
v 
PST1670 * * 7 PST2170 
* KNO  RekkOK 
* * * 
* DCES ST. *> AB * 
EXIST sa 
x % He te 
* *« 
Ed 
* YES 
PST1700 Vv 
SOR RIOR CR RK aK 
: x on 
x * 
XOISPLACEMENT *---> DO* 
* TC PHRASE * * 
* * * ee 


RRO RR RRO sate 


CHART ABS 


PST1710 
POOR ROR ARORA ROR kao 
OK x * 
Oe * FIND LENGHT * 
“00 S==2408 PHRASE TC * 
* * DELETE x 
a * P7 


FRC ROKR ROR i HOR He 


Vv 
IOI OR Rk ic kok 


* 
PUSH DOWN 
* PHRASE ABOVE * 
3K He 


RR RC ek ak ac 3 RO 


HK HHH HO 
QS 


PST1870 Vv 

FG HOI RCIA CIO IOI I ROR ROR Ox 
% * 
WRITE QUT 
* CORRECTED HDR * 


ROR ACK Oe He ROR HO a Me 


Zn54 
marc 
Pw 
ome 
=O 
neg 
UMA 
6 aM 
4] 


PST 1890 
RO ROK ke a ke hehe Ke ak 9K fe 
x * 
ESET SEARCH TO 
FIRST CTL * 


4 BLOCK x 

* xX 

He he Hie 2 he aie Be ofc ea ae ak ke ac 

PST1910 V 
2K ROR ROR iC Raga kore a ak ca a ak 

Het 
x * Ok 
*D6 -> LOAD CONTROL 
kk Ok BLOCK x 
ak 


Re RR RK aR ke Ra i 2 ke ae 


Vv 
PST1930 * * 


PSTLO7C 
* % 
ok ANQ 4k x 
* [SS THERE A x Ok a 
* CHAINED x> AO * 
* CONTROL BLOCK * * Hx 
* * KHAKI 
* * 
* * 
* YES 
Vv 
PST1940 | * a és PSTLOTS 
* ANQ Akko 
* 1S CTL BLOCK * * ae 
* IN PUSH DOWN *> AC 
x STACK xk Ra 
* * HORNER 
* * 
* x 
* YES 
PST1950 Vv PST197¢ 
SC RIO IOI AO ak ae tek 
* * ae ak: 


*REDUCE CHAIN * * ad 
* BE DELETED *---> AC * 


* AMOUNT % ai 
* x ae a ea: 
SRO ICR ROR to ak ok ak ai ak 


CHART ABS: DFJPSTSV 
DGS/CS STATEMENT SAVE PROCESSING ROUTINE 
PST1970 PS 


2200 PST2450 PST2680 
OR HO Ho 


T 4 
cer ene eee * BRC NORCO Cae Re he ae aie * BROOK eo tek dc BOR ake Rok Rake ae oe ake 2 aie aie 
Xe ek Pee! * % Puls % * 
x", ESET _LOGP_EOR # x ok x * Ok x ‘Ok x 
*AQ ~->* 25 IN CTL * *BOK=> READ CONTROL co rv PUT DIse IN * #00%-—>4 TURN GN NBR * 
ee: BLOCK * oe BLOCK * x CTL TABLE # * “% COLLECT SW * 
Xe % x wee ee x % Ae x * 
Re Xe HCHO Yok AOR ORC a eR Rk io kk a kak Xoo RO ROR ROK a ic ark ex FOR OR OR Rg Oi ge ak dO ac ate 
koe ------- = += -0 62-5 -3---------- 9) 
Vv Vv 
PST1990 * PST2220, *  * PST2450 PST2480 Vv PST2700 Vv 
Ed * * 1% ROBO ORCI ROR ROK BOL I Re ak eke a Xe ORO OCR Ik kk Fok ROR I FOK 20K ae 
* *NO * xYES KX HK 
* DOES x * IS THE NBR TO * *  % * * xk & * 
* STATEMENT ¥------- Qo * ADD_IN THIS *> CO* WRITE CTL BLK *DL -> _PLINP-_READ 
* EXIST x * CTL BLK x Ok * * x * “4 INPUT RECORD * 
% * % bd ah a ac RI 
* a x ae SHOR HOR OK I 2k ae a ROC ORR RR ROOK I tC Oi ok 
* %* * 
* YES * NO 
V | 
PST201C *  * PST2250 Vv PST2500 Vv PST2710 Vv 
* * He ALOT OR ROR ROOK HOHE 4O% ROO GION OR ROR ICO ROBO FORO ROR FORK ROR I ROK ROK 
* *NO a * * cd 
* : * * INCREMENT * * WRITE * * * 
* 1S STATEMENT &------- > *SEARCH LIMIT * STATEMENT TO * EOF x 
* IN PUSH DOWN, * : 25 7% FILE * * ENCOUNTERED “ 
% * RO HR aK i ROC NCR RC ah aK. RRR Re RHO Rak doo a teak RRC RC a ah he ok kk aie 9k a fe 
% * 
« YES 
Vv 
PST203C Vv PsT2270 * * PST2540 Vv PST 2730 Vv 
Hea Rok HO a 2h ACK ae fe aca * * TE ROK HOR RR ROR Re a ake kc ae a ae ee a ak ok RR I ake ea af a ac 
x % * *NO * * 
*CORRECT DISP * * * * WRITE FILE * * SET LOCP_TO * 
*BY PUSH DOWN * *  BGES THE RQD wenn oon 0 EXTENT * PROCESS 75 + 
* AMT * * “BUOCK EXIST x * INDICATOR * . CRARS * 
x * 
ROR eR Re he oe Ne he CK ea Re * a Oe RK XO ek eke Rak a aie ak FORO Ik a OK ak Rea ke a 
* x 
* YES 
ko -------------- QO 
Vv 
PST204C. *  * PST2290 Vv pst2200 PST2560 v PST 2740 v 
x * 2 Ro Re Ka RRC i ak Re fe ke Re RR A a 2K I a feo AK a FROM HC He ae BHO HO HOKE ak 
x *NO x * Fei x * aK K * * 
* x x x * Ko x x 
* ARE ALL 25 Henee-- x SET DISP TO #--> Box *SAVE F.C.B. 1* *D4 * PAIN, ACCESS * 
* PROC x * NEw CTL BLK * = % x IN L.S. 1 x x Ok CHARACTER * 
% * * x isk x % ROK bd * 
% * Fe ROKK ok a Rk ke oie ak 2 RR Ok Ra a ok ac a ok 2 ORO ok kp a ke take tok 
* * 
* YES 
Q-----~-----------~9 
v v 
PST2060 v PST2320 Vv PST2590 * x PST2770, * 
BR FORE RC a RRO aK OC Ke 2K aK ee HR Re Rk ike dea * % x * 
* x x *YES x xNO 
x * * * * %* cd * 
REWRITE CTL * SET NEW CTL * * IS THIS AN Hoo nn * 1S_NBR ka-o---- 
BLOCK x * “BLK LISP * * EXPLICIT SAVE * * COLLECT SW ON * 
TR ROO a Re CC aK alent oie ROR ROR Re Kf ROC teak * * * bd 
* * * x 
* NO * YES 
Vv Vv 
PST2080 * * PST2330 Vv PST2790 * ¥* PST295¢ 
2 * SIR III FOLIC IOI IC Rott kek Vv x a 
x *NO ORCI OI ROR OR I ROR ROKK x MNO ote 
& 1S THERE * * * * x * % a * 
* ANETHER CTL Mewe---- G WRITE CTL BLK x EXIT x * 1S CHARACTER *> a2» 
* BLUCK * * CHAIN * * LRET * * NUMERTC * ax 
* a FE ORO TOR RRO ak ok ak * * eee 
% % He he Rg a Re Re ale afc aie ec fe a x 
a % * x 
* YES * YES 
PSTZ1O0C PST1910 PST2350 V PST 2630 PST2810 v PST2920 
RR ok aK ate ah 2 aK afc ae 2K HO RHR RR HO a I ORC ok a ROR BORG keke ak eke ee ake a OAR IO 2 BORO He ok afc ok ae 
a % ak a kok x %* ROK * cd *” z HOHE XC Me 
* % % x * * * x cd * a 
*SET READ DISP*~--> D6 * * INITIALIZE * “CT * PSBEBy SET UP * * ADD CHAR TO t--3 Al * 
*TG NEXT BLOCK* % 2% * NEW CTL BLK * Ok Ok BUFFER * * ST NBR * Ok 
* * He He % co Bok X * bd * : He RCE Ae 
JISOR OI IC IIR OI IOI OK Ic BO RIOR ORO II to JOR RO RO RO AIK HOK SCR CII GIOR IR HII HO fo 
U-+-~--— aa —d €-- - 3-32 - - - - - 
PST2170 v PST24CC Vv PST2660 Vv PST 2840 
Be Ae RR a Re Xe i abe aK HK ROR ROR OR ROR CR HRC ae aie tke ke a SRE REE ROCK Rg tok ak Roa 2k ate a a 2c 
rs * Xx x 38K % * 
* x x * * * x * * = * TURN NBR x 
£A8 yr>* SET SEARCH & WRITE CTL BLK #INIT. ST. ABR* *DB -->* COLLECT SW * 
x LIMIT TO 25 * * FILE * * TG ZERO * * CFF * 
ee * * tok * * 
Finke nkeeean dan RO RRO CR OK ROK KC she aK RR Re HOR a Re Re ke he eK ROOFER ORO ROR Ok a RRC ak ae 
< wwe ee ee ee ee 
PST2190 v PST2200 PST2420 Vv PST2670 Vv PST2860 Vv 
Me Xe ae OR Ke kee a ae Xe ae ake ae genet eee ee ROR ORCC OC ea ak ie Xe ROR ICC ee Re Hie ake ake ake fe ae ac 
* % MEX % * * He He * * a ote ee 
MINITIALIZE TUX  * — # * UPDATE FILE ‘ * x ok ok * Ke 
*READ 1ST CTL ¥*---> BC* * EXTENT 9 #--------- Q *SET TO RECORD*---> DO* * INC. INPUT %---> AC ¥ 
* BLOCK kk * INDICATOR # x pos. | xk x BOINTER oo 9K Gx 
x * AER * * x * 3K KX * * He ROK 
ROR ROR OOK ke atk Rok OR Me Ae Ag a Rea ee ae aie 2 RR eo ke Ya ek ak ec FCROR OC ak ak ak Rolo 2c akc a ate ake 
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CHART ABS: DFJPST 
DOS/CS STATEMENT S 


sv 
AVE PROCESSING ROUTINE 


* * 
PST29CO0 * * PST31S5C_ * * PST2450 
* * * * 
tok x *YES a* * HYVES ERX 
* * * a & * = IS NBR IN * * * 
#*AQ * 1S CHAR Sletten ¥*BORD THIS CTL *> CC * 
%  e SEMECOLGN % * * BLOCK * * 3* 
etek x * ax * * tok ee 
x * * * 
* * * x 
* NG * NJ 
. onda eaten 0 
Vv 
PST2920 * * PST2740 PST32CC Vv 
* x 3G SOR oi ROI a air 
xt * ¥NQ RAK * * 
x OF x * * * * 
4AL * 1S RECORD *> D4 * * INC. SEARCH * 
ied PROCESSED x x 3% * INDEX 25 * 
xk * % KOK * * 
* * OO SOR CIR Ha RC ak 
* * 2 otk 
* YES * * 
peat es, e e s 
a 3% 
aK 
PST2700 
% 
PST2950 * * PST3210 v 
* * 2 AIR IOI RR a nO OF 
40k x *YES 
x kk x % UPDATE FILE * 
+AQ * IS IT A BLANK Ker Q EXTENT IN 
OK * * FILE * 
Rom x * 
* * PST2840 20 Rola EO dom kak ik 
* * $k OK 
* NC * * 
--+=- a---->* DB * 
* 8% 
A 
7 eae nn += 0 
PST297C v Vv PST3120 
SO do Rook da JOR ISIC OR fofok tok 
* # % x * eK 
*SET CHARACTER* * SET CHAIN * * * 
*CGUNT TO OUT * * ADDRESS JF *---> AT* 
* BUFF % *NEW CTL BLOCK* * * 
x * x * Re 
“| FOO i fo di tots gag 
v 
PST299C * * PST1630 PST3250 
* SR do ORE OK Rok 
* YES #¥Ke * * 
* WAS A ST. * *  * * * 
* NBR. *> CO * *SAVE NEW CTL * 
* CELLECTED x 4% 2% *BLOCK ADCRESS* 
x * 208K % x 
% * OR oR io tok doit 
* * 
* NC 
PST3080 Vv PST3260 Vv 
FERRO a At fei ak 3G FEE OO ior 
tod x * 
x x * * * x 
®A5 ~->*SET CHAIN TO * READ CTL 
« # * NEW BLOCK * % BLOCK * 
ee % * 
JG ROR ok for gi iota ae 2 IGOR IOI Ooi gk foie 
PST3100 Vv PST3270 v 
3 IGOR a tok ok ik ik Se OR tok 
* * 
* * * * 
WRITE OUT OLD *UPDATE SEARCE* 
* BLOCK us INDEX : 
2G ok ao tok ok as ioc 
FT 
i 
Vv 
PST312C0 v * * PST2450 
FOR Rk aoe * * 
tok * * * RYES *kHO 
kok * oe * 1S NBR IN x * * 
*AT%—-->* CREATE NEW * * THES CTL *> CO # 
a * CTL BLOCK * * BLOCK * * 3K 
or * x * FORK 
2 ROR IR a ROK a RO gk * * 
* * OK 
* NO * * 
Sateahetaeaeteteted >* AD5S* 
ak 
PST3080 
PS$T3150 
FIO IOI I IO BOR Ria do 
* * 
WRITE NEW CTL 
* BLOCK TO FILE * 
SO IORI IR I ai a 
PST3180 Vv 
3 ROR Ok aOR ara tok 
x % ee 
* UPDATE FILE * #* & 
* EXTENT %—---> BO* 
* POINTER * *% x 
x * eee 
SORIA foi kk tote 
DOS/CS PLAN SYSTEM FLOWCHARTS 


CHART ABS 


CHART ABU: DFJPTDMP 
GOS/OS PHRASE TABLE DUMP ROUTINE 
* 
PTOMP PTO1LO4C PTO01240 PTD1540 * * 
SOCORRO I RO tok 33k SIR ROI tak kk ACK * % 
FOI IOI I IR Rol x mx x x OK * * HOw * xYES 
a % x oO * FIND SECTOR * xO x * x ko Ea 
x START * *B0%-—>% TO START OF * 4C O%-~> ¥ INCREMENT B1T* *DQ*> TS TABLE NULL ea ss-s5- q 
* PTDMP % x PHRASE * SS * INDEX BY 16 * rs 
JRO IOI IORI I Or Hex ee % x ye * * aX x * 
ORR ROO I ROR A ROR 2K ORO IOI ROI IOI OR FOR HON * x 
* a 
* ND 
PTD1060 v PT01250 * * PTD2850 PTN1550 Vv 
ROR IO I ROR HOI ROK 20% * * FOCI OIRO AO 
x * * ENO kK x * 
DFJPTOMP — % SET UP * * ITS THERE MORE * * x * LOCAL, PTDP3 * 
PHRASE TABLE %* CHECKSUM * x IN THE PHRASE *> AG * * - DUMP SYMBCL * 
DUMP MAINLINE o HEADING % * ENTRY * * 3% * TABLE ae 
x * * * XA OK * * 
OI ROR TOI HOR IOI OK x * ROR IIR RR RIOR OK 1 10K 
* 
* YES 
(odie ac eee Ss 
PTL770 v PT01080 Vv PTD1320 Vv PTD1570 v 
SRESALEEAA RT ERS AIO OROR BORO RO ROgOK ok JIC OR IOI CHI OK hc SOO ROI I If oR HOt 
x * % x x * * 
&SET NUMBER or Es * % * * XTRAC, 8 BIT * 
BITS IN *SET CHECKSUM * x XTRAC;y 8 BIT * * TABLE CCNTRCL * 
‘ RECORD/ 94 : : TO PRINT * iat TABLE LENGTH * x COCE ye 
OR OIC ROR ICR ACR Rett Xe OIG I RII I OR ie ok JRO IORI ACIS AIK RE ROI ROR ROKK OK Ok 
Vv v 
PTD830 v PTD1109 PT01330 * * PTO1600 * % pTp2ase 
FRC ICRI RO ROR IO SORIA RO RO IO ax x * * * 
x x * * * xYES * *NOQ > aEIOK 
* * * FIND RECORD * x ARE PROGRAM * * % 
* GCATA, OPEN * *DISPLACEMENT * * IS THIS A xem % LISTS TO BE *x> AG * 
* FILE 255 * * TO START OF * * NULL TABLE * * DUMPED ek Bx 
* * PHRASE * * % * * ak ete ak 
SOR Ra i oi ok sok keke ak FIERO I ROK HK * * * x 
x * * * 
* NO * YES 
PTD850 v PTD1120 Pro1350 Vv PTD1620 
SOI I I foto ae xk AOR FOR ROO HOR Fk FRR ROR Bok oak ak 20k FOR RRR AC aR ea Ck a ak 
Ss * x * * * 
ss XACES;, REAL * * % LOCALs PTDP2 * * SET_LIST * 
x PHRASE *SET UP poveLes x DUMP x * SWITCH TO * 
* VALIDITY x x SPAC x INITIAL * % PROGRAM * 
* TABLE a % * x VALUES * * * 
FR ROR IO IR RII HOCK JOO I RGR ROR kak ek SES IER HOI FOR ACO TRC ROK Ha ae 
< a ee ee 
v 
PTO88C PTDL 40 v PTD1370 Vv PTD1640. * * PTD2e5C 
Be UI OR IO. OR aR 2OR a ace SGI a io dk kak te tokolok dakotak ak FIO AOR IG ok OR KOR x * : 
* x * * * *NQ tom 
* * * * * XTRAC, 8 BIT * * IS THERE MORE * * * 
* PSBFA, ASSIGN * PRINT % TABLE CONTROL % * IN PHRASE x> AG * 
x BUFFER * * CHECKSUM * ae CODE a * ‘ ENTRY ue * 12 
SORE tk dor ike dak eke J III SOIR IIo ak ak k FER ICR ROR AR kab ak dof ok ak % * 
x * 
* YES 
Vv v 
P.TD90G V PTD1160 Vv PTD1390 * * PT02850 PTD1660 * x PTD2759 
JOR ORR IO. Fak ROK I i Ok Ak ai ak FARO IORI AOI ROR ia x * * * 
HtOK x * * YES kK x ENQ Fok 
x x x  %* & XACESs; READ 2 * * IS THIS THE % * * 1S THIS xk x 
SKIP TO NEw *B6 * SECT INC * % END OF THE *x> AG * * HEADER FOR *> Al * 
* PAGE * * % * PHRASE ENTRY x * PHRASE ENTRY * * 3% NEW TABLE xk 3% 
eax x * * * Fer Ok * x Fe AHO 
FOI OR RR I FOR Ok OK FOR ROI bok RO k ak a kek % * x * 
* * * * 
* NO * YES 
PTD920 PTD1186 Vv PTOL410 * % PTD2750 PTD1720 Vv 
SORA URE Ae RO IO III ROI OK ak x * SRO ROR a ak a ae 2k oak 
x a * * NO Xk ax * * 
: eT as = * LOCAL PTOPL * IS THIS THE * * * * 
coe % bRINT % % HEADER_FOR_A x> Al * * XTRAC, 8 BIT * 
ScHECK SUM” Zero# a HEADING LINE rig . NEW TABLE 2 * eo ‘ TABLE LENGTH st 
FG eS SO II ROI IO RRC * * JOR RR IO Zak OR ROK I ok 
* * 
* YES 
v v 
PTD10GO PTD1200 * * PT02850 PTD1440 * % PTN2850 PTOL750 * * PTD196C 
FCO IO IO i BOI IO a x x * x x 
% % * HY ES xe xe a ENO tek * HAYES ee Hk 
% * * IS DUMP TO xe * [S SYMBOL x * * xO * 
*RESET SYNONYM% * INCLUDE ONLY x> AG * TABLE TO BE *> AS * * 1S TABLE NULL *> Be * 
* INDICATOR * x PHRASE % Ok Bk DUMPED ALSG * * 3% * ar Se 
% ES * HEADERS * SOK ACK x * SRO * * cook ak 
FCRIII IORI OR I ROK xO ac * x x * * x 
* * x x * * 
* NO * YES * NO 
Vv 
PT£L1020— * * PTOzZ850 POT123C Vv PT01510 v PTD1770 Vv 
x x 2 IO I ROI AOR tOIog alok FOCI ROR RO 2k ai JOC ROR IOI HOR RIOR gO 
x *NQ  Rxctok x x Pee x * Tee x x FOR 2 
* IS THERE A x OF % x * * * * SET TABLE 4 * * * 
x PHRASE WITH *> A4 * *SET UP gous ex---> cos x XTRACs 8 BIT “2 po# * HEADER TQ *---> AM * 
* THIS CHECKSUM * * 3% % SKIP * TABLE LENGTH x * PRINT * * Om 
% * He I * ‘ eee a ‘vee * * eH OK 
x * FOR IRI A RII Bok JAR IOI ak i dota FRR ROR ROR ai ar ke Xk 
* x tO 
* YES * % 
poss enn--- >* BOx 
* 
HOR 
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CHART ABU: OFJPTOMP 
UCS/GS PHKASE TABLE DUMP ROUT 
PTOL78C PTC194C 
ROR ROR ak dk ak a kok te ake ke ae a ak Sek fe oak kk i ok a fk ok Bake 
eee a 
% ee * % x * 
AQ -> PRINT TABLE 4 *B0%-> PRINT PROGRAM 
pane * HEADER * * ae * NAME/NUMBER * 
* * 
ROR ht a ate a aa ak oe oe RR ak FOR Rak fog Rode 
PTO1796 V pTD195C * x PTD1790 
PET ererets tere. . * 
Pes x * * *NO 4K 
* o& & — XTRAC, 1ST * * xe 
*ALE BIT OF * * IS LIST ALL *> ALK 
x % * ~~ PRGGRAM ENTRY * * PRGCESSEO * * x 
ok x * * x Pas 
RO fC he atk ake a aie a a ad * 
* * 
| YES 
V 
PTDI81O, * pTO1960, + PTD2650 
* *YES tobe * HYES OK 
* x x * * ‘* 
* 1S ENTRY. ¥------- O*B2 * IS LIST &> Dox 
* ALPHABETIC * SWITCH EXIT * * x 
mm * 3% XK ye * Ke 
a * * x 
* * * * 
* NO * NO 
Vv 
PTC1830 Vv * * PTD2680 
ORC fg aK afk i a FO afc ke a * * 
& * * AYES fottok 
* ax * * % * 
*XTRAC,32 BIT # * IS LIST *> AO * 
x ENTRY * * swiTch VERB * * | 3% 
* * % Kk FOR RCK 
2h Rk ok tok doko ak koko ac * * 
* *x 
* NO 
v 
PTDL835 «| * PTD1L98C Vv 
* * aR Oko srk tse Stokoe ek 
* *NO * * 
& * XTRAC, 8 BIT * 
* IS VALUE 0 oe > * TABLE’CONTROL = * 
CODE 
Ed a * * 
% * FR $k ROR kok ok kee 
* * 
* YES 
Vv 
PTD1850 V pTp20co  * ~~ * PTD2850 
SIGIR I RIOR ORs fok ke ak x * 
* * * RYES Sk 
* * * IS IT ENO OF * * x 
*SET NUMBER TO* 4 PHRASE a> AG * 
x PRINT # * INDICATOR * * 3% 
* * * RRS K 
he Ree a oe ofc Ae ake fe ak of ok * * 
* * 
| NO 
v 
PTD187C V PTD1940 pTD20€0 4 # PT02750 
BR ke ete oe oho ate oe x ak 
x ek * ¥NOQ 9 #%K 
4 XBIT) eet x  IS_IT NEW * *  # 
* INCREMENT BIT *> BOx * TABLE *> AL * 
x INDEX BY 64 * *  % 4% INDICATOR * * 3% 
* Pee * * sk 
ROR RRR tok ik i ok ak * * 
* * 
* YES 
Q---------------- -0 
PT£1L890 V PTD 2080 V 
ROR ROR RO a a ke ot ae ae ake akc ak ROR i atk ae poke ao 
* *® * LF 
x * * x 
& XTRAC, 64 BIT * * XTRAC, 8 BIT * 
: NAME * * TABLE'LENGTH * 
RO ROR ge ak ROR Rote ak a RRR OR ko ok Rak teak 
PTD1920 v pT02100. * * PT02850 
SRO kota ok ake ake aio ak ak a * ® 
* * * NO | YORK K 
XBIT * ARE CHECK & *  % 
* INCREMENT BIT * * ENTRIES TO BE *> A4 * 
* INDEX BY 64 * DUMPED * & 38 
* * * * RK 
Ree ee a he fe fe a a a ae afc 2 * oe 
* * 
| YES 
Vv 
PTD1930 V PTD1940 pTD2140 * * PT02260 
ecerr eT eret rs £7 * 
* Pe * YES tk 
x x o* * x x Ok * 
* PAQUT, SET *> BO* * IS TABLE NULL *> C3% 
* NAME TO PRINT * * x * a ee 
* x OH ke * * OK 
Terre r re ter ss * * 
* x tok 
* NO x ok 
wa as----->* Ox 
* * 
ok ok 
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INE 
PTO2169 
FOR RRO ACR IO Rm XOROK AOR 
xx 
kok Ok * 
*CO*-> PRINT TABLE 5 
* HEADER * 
ok 
FOR OIRO BORO HOOF HOE 
Vv 
PTD2200 * * 
% * 
* *YES 
a * 
* IS TABLE ALL BSS <345=9 
PROCESSED * 
* 
* * 
* * 
* NO 
v 
SR OOR EOI REO R HOR ak 
* x 
* LOCAL, PTOPS * 
* - DUMP CHECK % 
* ENTRIES * 
x x 
JRO ROI ORR ROI HO 
< ee ee ee ee ee 
PTD2z60 
JOR OIRO RO FOR Ot tC 
xo x * 
* * * XTRAC, 8 BI * 
303% TABLE ce * 
ex * x 
FERRO AIK SOL ROK ROK 
PTD2280 * * “ PTD2850 
x *YES kK 
* IS IT END OF * — * * 
PHRASE *> AG * 
* INDICATOR x 3% 
* x he 
* * 
% * 
| NO 
Vv 
PTD2300 | * x - PTO2750 
x ENO Fo %oK 
* IS_IT NEW x % o 
* TABLE *> Al * 
* INDICATOR x kB % 
* % ook x 
* x 
*x * 
* YES 
PTD2320 
OIC FOI I IR ROK 
x x 
XTRAC, 8 BIT * 
* TABLE LENGTH * 
CGDE 
* * 
JOR ROI ROI ROR I ROI a YOR 
Vv 
PTD2340 | * * PTD2850 
* HNO eek 
* ARE x * 
* EXPRESSIONS *> AG * 
* TQ BE OUMPED * * 3% 
x * Fok AO 
* * 
* * 
* YES 
Vv 
PTD2390 | * * e PTD2490 
vk 
* *YES KK 
x x * 
* TS TABLE NULL a2 D2 
x x Fk 
* * 
x * 
| NO 
PT02410 Vv 
FOI I RO CHOI I ao 
x *x ROK 
* LOCAL, PTDP6 ee * 
* ~ DUMP *> DO* 
* EXPRESSIONS * * 
* Rok 
3 ROI tok tiie 
CHART ABU 


NQ 


PTD2429 
ORI CIOI FOR soa ICR ak aie 
ok * * 
xX * SET LIST x 
#DO#-->* SWITCH TO * 
x Ok * EXIT * 
eX *x * 


Oot HE OH EK RC He ak 7 


PTD2470 Vv 
FOI OO I CCI tke 


Vv 
PTD2490 & OK PTN2e5C 
1% ae MY ES I ok 
* o* &* TS IT END OF * * x 
*D2*> PHRASE *> AG * 
ek INODICATGR * * 2% | 
He% * X He Xe He 
* xe 
ak | 
* NO 
PTD2510, *  * PTD2750 
* * 
x NO % HK 
* IS_IT NEW * * 
* TABLE x> AL * 
* INDICATOR «= Ak 
bd % IE Me ate 
bd * 
* * 
* YES 
PTD2530 Vv 
Fea AOR RR gC a ae ak ah ok 
* ae 
* XTRACy 8 BIT * 
* TABLE LENGTH * 
CODE * 
XK * 
ROOK KORE OK OR ROR 
PTD2550, * PTO2EKS 
x SNQ er 
cd ae ae 
* IS LIST TO BE  *> AG * 
* DUMPED ek Be 
* * RII 
* %* 
cd * 
* YES 
PTD2600  * | 
* * 
* xNO | 
bd * 
* IS _LIST Keene ) 
* SWITCF EXIT. * 
x * 
* * 
a * 
* YES | 
PTD2619 Vv PTDITSC 
SR ROR I OC Rote a Re ak eae 
* x Heke a 
x SET EXIT Sn, 
* HEADER TQ *---> Al¥ 
x PRINT ek 
* * eK Xe | 
ROR ROK oak ak ok 9K 2k ak Xo aie 
Qe ---- 22 --- === - 0 
PTD2630 Vv PTOL79C 
FR ROR ROR CRO ROHR HOR Ok 
* me MHC 
* SET VERB * & 3 
* HEADER TO %---> Als 
* PRINT xk 
* * erie 
FOIA OF Rk ak ROR ROK foot 
PTD2650 
SOR OHO LOR ROK a HOLOK I HOK 
Ed bd x 
x * * x 
*DOK—-—>e SET LIST 9 k-n------- 0 
x  # —%& SWITCH VERB * 
tok cd a 
HOR HR RO aie teak ake ak eke ate ate 


PTC268C 
JO CIIG ROI CLO ka Ror i ak dak ae ak 
MORO 
ed a 
*AQ -—> ‘SKIP LINE 
Ok 
He tOk 
FOR ROR ROR HOF I HOR Relea 
PTC275C Vv 
JOR RII IOI OR ROR Ok a AOI I HOR I IOK 
HE HO 
x ok & * 
*xAL -—> CUMP SWITCH 
al WORDS * 
He 
TORIC RR ROR AOR ROR ORC 
PTD2810 
Bed We Me a RO Xe Re ae He a 2 2 
a % 
*AQKD* EXIT % 
%  %* & CALL LRET x 
ek MORO RR BOI ROR FOI X 
U--------~--~---- (a) 
PTO282C0 V PTO01160 
SR ROR IOI OR Rta fk a 
x * AK 
% PICK UP * * * 
% SYNONYM %——-—> BE * 
* LOCATORS * * Le 
ae * Rea eae 
OR ROR AL OK HOt RRC aK 
x 
PTL2850 * * ‘ 
AK x *YES 
Ok Ok * 
*AG TS THERE A KS st 
ek SYNONYM % 
aeRO x x 
% x 
x * 
* NO 
PTC287C * * 
x x 
* *NG 
* IS THERE AN * 
« UNPROCESSED Xm —m——— = 
% CHECKSUM * 
x % 
* x 
ok * 
x YES 
V PTC1000 
FORO ROR ROR HR HK tak 
x Ee eae 
Xk x x x 
* SET TO NEXT *---> A8 * 
* CHECKSUM fa x 1* 
% * ea I 
RRR HOR OI HOKE AO NO ke ak ok 
Qe reer nn een Q 
PT.D289C Vv PT02810 
SCR IOR ROI I ROR IR RRO AIK CIO 
XH 
x Ok x 


PRINT END OF ~-> A2* 
x DUMF MESSAGE * * * 


tot 
GIO RI ICICI RIOR ICR 


CHART ABU: DFJPTDMP 
OCS/OS PHRASE TABLE DUMP ROUTINE 
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CHART ABU 


CHART ABW: 





DGS 
PTOPI PTL 
PPC eer ers £2 ee 2% ae * 
* * * ee 
x START x xBOKR 
% PTOPL % eee 
Te OR OR Ae ke pe ake ae oe oe * 
PTL 
CFUPTUPL = 
DUMP PHRASE 
HEADER INFO 
1 
PT176C V PTL 
he a a a a RR tak ae a a teak OK 
Xe * 
SET UP UOUBLE 
« SPACE * 
PTS EEESOC CLL. LS 
i 
4 
PT1780 v PTLL 
Me ROR ata teak ae ROK aK ae 
* & * 
* * * 
* — SET UP * 4 
XHEADING MASK # * 
ca 
RoR ROOK gc ao kok kok ak 
PT183C v PTil 
2G GUID ike tok & 
* a 
* XTRAC? 1 BIT * * 
x LEVEL_O x * 
«INDICATOR = * 
PTerererrrerrr sy 
{ 
| 
V 
PT1840 * x PTL1 
a x 
x YES 
* IS THIS % 
* PHRASE LEVEL Keowenn= c 
* 0 * 
x * 
* = 
x x 
No 
PT1850 V PTLL 
PeCerrrretoet . ¢ 
* * * 
* XTRAC, 3 BIT * x 
x CAVEL * * 
s INDICATOR * * 
xe * * 
PTeeELerrrrrets 
Vv 
pT1870_ # + PT1920 PT1L 
& *YES mK 
*« * * * 
x IS IT BLANK +> BO* 
x LEVEL « *  # 
* * tk 
« x PT1900 
x % OK 
* NG * * 
Hsrsss- a-=>* AQ* 
ak * 
ah a 
PT1890 V PTLL 
Re ROR aK steak dk ek Boa ie 
* cd a 
* SET LEVEL # * 
*INCICATORS TO* * 
x =1 * * 
* * * 
SR ROR RO ake af 2 afc ae aie a a 
PT1900 PT1920 PT 11 
3 OIRO IO tk ak 
KK a ‘* eee 
* % xSET LEVEL AS * *  * 
HAQH~—>* LEVEL #---> BO# 
* % “ INDICATORS * * 4 
aX * PLUS ‘OQNE * a 
ZERO IORI FIR Ok 


DOS 


HHHRHHHO 


DFJPTOPL 
7OS DFJPTCMP LCCAL ROUTINE 


FRR 

* 
8 BIT * 
NTRY Pes 


* 
ROR 


RHR HO 


020 Vv 
JRO GI OIG Oi tok Ac ak 
* 


* 
XTRACy 1 BIT * 
TYPE a 
oe Sk oe kak & tok KK 


v 
040 * * 
* 


090 
2 og ak kak nok ok 


XTRAC, 6 BIT * 
OISP TO CH * 
PHRASE * 


SRO ROR tea ak tke ak ae 


1G0 

SURO foto i fokok ok 
* * 
* SET * 
*CISPLACEMENT * 
* TO PRINT : 


FOR I ORR tke kok ok i ae 


120 
OR ROR AOR Ha ia ea a ae 
x 
XTRAC, 8 BIT * 
REL SECT OF * 
CH PHRASE = * 
fo 
13¢ v 
JO IO EO Rak xGk aok 
* ~ eK 
¥SET RELATIVE * #  # 
* SECTOR TO #---> Co# 
x PRINT * & - x 
% * KR Xe 
SOI RAI ROO I IO AK 
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¥CO*--> * 
x 


PT11150 
FOR ORO SOR IOK 


* * 
* *SET TO START * 
OF PHRASE * 
* NAME * 
* * 
JCI ROO GIO Rok i ao 


PT12160 
3G IR gar gk tok ak 
* * 
* SET PRINT * 
*AREA POINTER * 
* TO 17 * 
x 
cd 


* 
FROCK FOR KOR I Ok Fok 


PT11220 V 
FORO BOR RIOR OK 
* * 
* * 
* SET NAME TO * 
* PRINT % 
* * 
FR EO ROR IOI Ha OK 


PT11230 Vv 
FOO IEE A Rok of ok ak 
* * 
*INCREMENT BIT* 

* AND PRINT * 

pe POINTERS + 


ROK atk ak dk 2k de 


v 
PT11290 * * 
x x 


* *YES 
x 


ba S$ T 
THE 
N P 


* AN 
* 
* 


E 
R 


% Om 


PT11340 
FO I IIR ROI III OK 


* * 
PRINT PHASE 
* HEADING LINE * 


ROR GROK BOR RIK 2k Ok 


Vv 
2 RO RI EOI iotofok kc 


* 
* EXIT 
%* RETURN 

FRI IOIO I BORO RCROK akc 


eee 


CHART ABW 


CHART ABY: DFJPTDP2 
DGS/GS DFJPTDMP LOCAL ROUTINE 


PTDP2 
ROR OR te af ROK kaa eae ak ie 
% x STD DATA 
* START x VALUES WITH 
* PTCPD SYMBOL IC 
Re tet kk a ko aie ak aK ac SUBSCRIPTS 
PT2940 
RO a ROR a ae a kK a af af ak 
* * 
GEYPTDP2 xt * 
PHRASE TABLE *BL*> = XTRAC, 15 BIT * 
2° DUMP « *, NAME Fad 
- RRR Ra Rg kak a tok kak 
PT275C V PT2970 V 
ORO R tO tok ko tea ak tok kok Fok Re OOK ye kk a RC ak 
* * 
me * % 
PRINT TABLE * PUT _NAME TO * 
* HEADING x # PRINT * 
Se eR ake tr ak a fe a af ok ape a 2 BRR OK atk kat k kak ack 
PT279C M PT210C0 Vv 
ROH RO a a hake Rc ate ae ak akc a eb ROR KOK oe he ake a ea abe fe fe 
ok * *x * % 
4 XTRACs 1 BIT x x 
*AB%> FORMAT * * — XTRAC BIT * 
ae INDICATOR * INDICATOR Fi 
FRR a ah ok ake NCE a a aK afc Se a afk ok Bk oak ok ak 
Vv Vv 
pT28CO * PT2940 PT2IC1O *  * 
* * cd bse 
* *NO 40K * HYES 
x 1S 1T a x x 
x CONSTANT *> BL* * IS THIS men nnae Q 
SUBSCRIPT * *% IMPLIED BDO * 
x x tok x * 
x & * * 
ak * * * 
* YES * NO 
PT2830 v PT21030 Vv 
ak Bc hake a ke of afr ak aie ak ak a TR a RR ok a ak OK a a ok ak 
* * * a 
* % % % 
* XTRAC, 14 BIT * * XTRAC, 15 BIT * 
* CCN SlpScRipT 4 « SUBSCRIPT * 
WR aR ie a te ote a OR ae a oe ake afc ep Rota Bok kok ietok foe 
PT2850 V PT21050 v 
ROR RR ok tote ake of aie ak atc Re op ok ROR ek a i a ea 
* %* * * 
* e % Xe 
%SET SUBSCRIPT* *SET SUBSCRIPT* 
*  TOARINT — # x TO PRINT 
2 fe a RO ake ak eo kk ROR ROKR Rok tk kkk fcc 
P.™2900 M PT21110 V PT21340 
corer rer ers et ts SRR RRR AG aK 
a * * % RIC ok 
* XTRAC, 1 6IT * x XB1T KOR 
x FORMAT * % INCREMENT BIT  *> C6* 
& INDICATOR x * INDEX BY 64 * # x 
* * * * IH 
RR a a Ok a ak ak ak ae RO a ak Men ROR OR tak tek ok ak ak ah 
Q------ we a-------- 0 
V 
PT2910 # PT2LLEC v 
* x SR ROR RO ie doo tO ok ae ae 
* *YES * +) 
* 1S THIS Keener <=> XTRAC, 15 BIT * 
* IMPLIED DO | * *. DISPLACEMENT Pa 
% * ORR ROI ROR a fk ge a afc 
* * me teak 
* NO + * 
wone------ >* 3x 
* x 
$k 
PT21280 
PT212 v 
a anu eek 
* * eK Re 
* mw ok % 
*  XTRAGy 16 BIT | *> CO* 
* INCREMENT ek Ok 
* * eo 
2 oh he Re RK ofc a i age a aie 
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OK 


* ok * MOVE * 
*CC%-->* INCREMENT TO * 
Ok * PRINT 


eK 


sok 
Pd 
bia 


es 


PT2 


PT2 


PT! 


x 
* 


PT2 


ok 

*x> 

Xe Ok 
x 


PT2 


PT2 


* 
* 


PT2 


* 
* 


1220 
FEO IOI II IOI Ik 


* * 


* 
* a 
FRO ROR Rk Fp HOI ake ake 


1239 V 
ROR ROR RIOR IK ak a ak akc a 
x*« x 


1250 UV 
3K 


1280 
SCOR FORO II LOK 
* * 


x 
XTRACy 32 BIT * 
INIT VALUE ae 


JCI IOI I ROR OR RK ac 


1290 V 
SR GIOI OI OIE ROI ROI R teak 
* * 


% Sa 
*SET VALUE TO * 
* PRINT * 


IOI OI ROR ORO AO 


1320 
FRI ROI RRO Ck 
x % 
XBIT, x 
INCREMENT BIT * 
INDEX BY 48 x 


FOR ROK RO NO BOK ROK 


Vv 
ROI IE IO ROI tla tok 


x 
PRINT LINE 


ORO RIOR ROI ROK ok 3 


Vv 
1360 * a 
x 


see ea Kak 
& 
Bae * 
RETU x 
* 


RN 
2A OK BOI Iok a tot ak 


CHART ABY 


PTOP3 
OIRO I IOI IIR 


* 

* START 

x = =PTOP3 
Ak 


ete 


FO a FOR Rak 


766 
OK 


2a Me Oi ek hoe 


PT 
aR 
* % 


PRINT TABLE 
* HEADING * 


ROR OR Ok aR kok a pote eke ac 


PT3790 v 
a PSA R AE NES 


ee eae 


#A34——>4 15, BLT NAME ‘ 


Soe es ¥ 
Te HOO ROR Rea ek 


aa 


PT3826 
FOR ROR RR RO FO FO 2c 
x 


cs 

x SET NAME TO * 
x PRINT Fd 
Pd 
x 


% 


* 
2 ORR ka a ak eae 


PT3850 Vv 
FRG CTOI IR A 


=XBUT . 


FINCREMENT Bits 
: IND 15 


Fad dicce xiao 


T3870 Vv 
JARED ka te 
*X TRAC 
pea te 
* 2 BIT USER * 
i EXIT NUMBER 24 


Det a Re akeake ak ae aie ak a ke 


Vv 
PT388C | x * 


<< 


PT3900 
ZORA 
x x 


* * 
KSET USER EXIT 
* TO PRINT # 
TELE TEOCEO LL £1 


PT3920 v 
2 ROR tO ata ek ioe 3 
*XTRAC x week 
wee ea e x * * 
2 FaRMAT #---> BO* 
* INDICATOR # OH 


Re ORIOE IOI ROR RK a 


ah 
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CGS/CS DFJPTCMP LOCAL RCGUTINE 


PT3940 
SIRE LE TERE S 
* 
* woe FORMAT aK 
&BO*-->% I< T6 
RORINT x 
: * 
IO ROR tok goto or 
PT3.1030 Vv 
AOR ROR RR te teak a 
*XTRAC * 
eee er er ene * 
* 1 BIT SCALE * 
SFACTOR INOIC i 
FO ROR ORR Ra Rak ak ik 


PT312090 


XK 
* x & % 
*> C1* 
* x * x 
* toto 


PT31060 
SO IOI RICK a ake eke tok 


*XTRAC % 


ho nae ee 


* 3 BIT SCALE * 
: FACTOR * 


seo Roto kato ak ook ke ak 


PT31L0EC v 
BAERS REE AREER 


EXTRAC 


x 1 BIT SCALE * 
* FACTOR SIGN z 


diantekebeunses 


PT31140 v 
2 RRR ROK Sf eR 


*XTRAC * 


eens ek 
* 9 BIT * 
* SUBSCRIPT * 
* * 


OR ROR tok Rook a ok 


PT3117C Vv 
SEATERSESREEE ES 
EXBIT 


*INCREMENT BIT# 
* INDEX 17 = 


OR ROR ROR kak ak ak XO tok 


PT31420 
ek 
* 
Ca* 
x 
toe 


Vv 
PT31180 * x 
* ¥ 
* xYES 
* % x 
a IS SUBSCRIFT *> 
* ER aS 
* * 


™ 
oO 


WK 


RH 
PT31250 
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PT31420 
FO OIRO SOL ROR ke Mook ok 
*% * % 
SUBSCRIPT * * oo INCREMENT * 
WITHOUT SCALE *D0%4——># OUTPUT % 
FACTORS * ~* POINTER * 
ie * * 
For RRR IO Rok okoke ake took 
PT 31200 PT31439 Vv PT 3135¢ 
SII RO RII KOK CK SOI ICICI FOI ROOK Re 
wok XXTR AC * *XBIT ee 
Ce ee ee i ea ee * 
C1 #-—>e 13 BIT * SINCREMENT gIt#—--> C7 
x  * * SUBSCRIPT * * POINTER 8 
ok * * z * Sear 
SO RO III AOI OK FR CIR HOR 2 ICI OI 
PT31210 Vv PT31460 
Sen oa ionic stot JOR RIO I AOIOK I CIok 
*XBIT x *XBIT * 
aa eee ae kk Re -~----- + 
SINC REWENT Bits *D2%*-->* INC BIT PTR * 
IND 17 * * TQ END WORD * 
‘ Ok * * 
Pekin EREE FO SRR I HRI 8 ke Xefeaie 
v 
PT31220 * * PT31509 Vv 
% * SEC AO LOI IO IOI IIo SOK K 
* *YES 3K 
* * Kok ok * 
* TS SUBSCRIPT Ksssss-= 0*D3*-> PRINT 
* ZERO * 
* * sok 
x x SORA AR If OR XR RCE KC 
* * 
* NO 
v 
PT31250 Vv PT31500 PT31520 *  * pTa7s¢ 
Jia OR Bok i tok kok * * 
0k x * soto * *NO we ae 
x % * * * * x * 
*C4*-—>*SET SUBSCRIPT*--~> D3* * IS TABLE 3 *> AR 
*  * —* TO PRINT a * ALL PROCESSED * * % 
ex * * HK * x Heke ok 
2 RR ROR tok kok ar * * 
x ok 
* YES 
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PT5116C 
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PT51320 
RE RC HO NO XR ak Re HO 
Ok x # 
% * x 
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* 
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3K ROK 
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x 
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TYPE IND * 
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at 
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RENEE ESA EE 


PT51520 v 
ROO AOI Rok yok ok x 
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# 
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* OK Ed * 
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* SWITCH * 
Pag * % 


FORO ROR RICE RCI i ak 


PT51580 Vv 
FOI SOR I ROR I HOI Ika 
SxXBIT * 


INCREMENT BIT* 
x INDEX 160 * 


RRO ROR HOR HK RO 


Vv 
PT51599 * * 
a" * 
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ROI ROR dk ak a 
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*OF CHARA 
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WOK He Rea Rok Re 


RAK 
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PT51640 Vv 
SERS RAPE U ELEY 
sok 


EXTRAC 
x Ok 
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re 


PT51660 Vv 
SERERA REAR ES 
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SET x 
ECHARACTERS TO* 
PRINT - 
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¥XBIT 
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* Dm 
Ae ROKK 


CHART ACC: JFJPTOPS 
CCS/CS DFJPTOMP LOCAL ROUTINE 


x 
PT5169C * * PTS187C PT51750 
* * SOR BOR RAO AORN Ree 
eK * *NO HX Hee 
* € # * x ok ot x % * 
#AO * TS CINE FULL keon--+ O*B0*-> PRINT ~-> A3% 
* « & * * x Ok * 
Pees * * *K sok 
4 * FOR OR doa tok 
« * 
* YES 
PT5171€ Vv PT519CC 
SRI TOIOI GI ROR Ok Ai otototoakak SR iO OO IOR 
ae *XTRAC * 
* * * Hm wae rok 
PRINT *B1*-->* 8 CHARACTER * 
ak * NA * 
tk * * 
JRO RIOR IDI ft Jato doo dodo tok tok 
Dr oaaleats eaten teateatenttinte tate lente ©) 
v 
PTSL72C, * * PT5164C PT5193C v 
* * FOIE EO ECR ORI 
* HYES # e aK * * 
* ARE THERE * * * * * 
* MOR €. *> D6 * * SET NAMe TO * 
* CHARACTERS * * 1% * PRINT * 
* * tok * 
* * SOIR AO BO ROK aio 
* * AOR 
* NB * * 
<== ano >* BQ 
# 1s 
atk 
PT51130 
a 
PT5I75C, * * PT5760 PT5194C Vv PT51870 
* * JR ROR ROR SOK Ot 8K a 
De * KYES * bee * * XO 
* * * TS PROGRAM etd * * * a 
4A3 * LIST ALL *> AQ * *ADJUST ACTION*---> 6O* 
«  * PROCESSED * * 1% ¥LIST POINTER * = * 
Ex * * BIKE * * tk 
* * FO IOI ROR I fk a 
* * 
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Vv 
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* 
* KYES  *%* ak SR RB ok dodo 
* OR ie * oe ® * 
* 15 PROGRAM *> B1¥ *B4 >* EXIT * 
* NAME x koe RETURN * 
* * see ak SARE RE 
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PT5180C Vv 
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* *NO ete 
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ee 
a x 
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FORO ob a gk tok k 
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JO ORG RIO ROR ARO IOI I xe x x HH 
x x 
* * 
* NO 
7 
% * PT61930 
* * 
* HAYES RCE 
DFJPTDP6 - x xx x 
PHRASE TABLE * IS INDICATOR *> C3 * 
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* SIGN * Ok * PRINT % 
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* TURN OFF & ff wee nen * 
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X heme en eee Ea ke % 
fC1 RD 48 BIT EBCCIC * 1S TABLE ALL *> C3 * 
* CHARACTER * PROCESSED a «Ok 
* aa * * * * KRM 
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he Ho ee ee a kK x 
* 14 BIT * taste BIT EBCDIC : *C3 >* EXIT * 
* SUBSCRIPT * CH * * & RETURN * 
x * ae : : ok SOIR BOOK foe teak took ok 
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SOR I I RCIA RIK eo * * eC aK * * 
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x x 
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ROK ARO OIRO OR A NCR ac * x XOX * x OHO 
* x RR ROR I IOI ROK RH HRM 
x * 
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* * x x BUFFERED * 
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AGI IO Rt a toto kk SURO OO ERK tok FEI IOI SICK rok ak koi tok 
* * * * * x 
* * * STEP DATA * * a 
* [ISSUE WAIT * *ACDR PAST CC * * ISSUE WAIT *----- ----0 
* * % CHAR * * * 
* * * * x * 
SEI I IDIOI IG RR tek JO RI RIOR i dom i kak EOI IOIO IOI 2OI Rk ok 
K€-~----- ware K£2-------- ---- -- = Q------~---------- 
$163510 v S104510. * * $105110 v 
3 ICR EI I RO IOI IK ak x * OR RC ao ton HOR 
* % * *NO Es * 
* * * * ALTERNATE * 
*SET CC CP TO * * CARD CEVICE ¥S5==== ie} * BUFFER * 
* NOP * * PGINTERS * 
% * % * * * 
SE ROR ORI ROR OK FOR ICR a * * SIO FOI IOI HOI RI IO x 
* * 
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| (Heese sors eosec- 0 
v Vv 
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* * x * FOROIO IOI ICI IE BOI I OK 
x ¥*NO * *NO * * ek ak 
* % * * * GET CURRENT * *  * 
* TAPE te ne----0 * CARR CTL REQ #o----- is) * BUFFER *---> Bo * 
% * PGINTERS #* x 1* 
x * * % * * Ok tok 
* * Sa x FRO IO IO aK 
* * * * 
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Vv 
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SOR RGR IO OOK FOR ICR A * 
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* % * % * x * 
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* * 
* YES 
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* *NO #408 * * teed 
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l 
v v 
S$10385C * * S1C4730 * * 
* * * * 
* *YES * *NO 
* x * v 
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* * *FCR CARR CTL * 
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Qo eee ee ee ee —< Qa- 2 
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Q-~-------------- - 
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* oy * * tee 
* * x * * * 
* BACKSCAN 9 ¥-----=--- c * DO IOs R/W ¥*---> CO* 
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* x * AK 
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OUTPUT BUFFERS 
RR ROR ROK eae 

DTR27C Vv 
SOR ROHR ROK ke ROR tok 
* x 
x x 
* BUILD TRACE * 
* LINE IMAGE * 
SOR ORC Rake 20K ok ae ok 

DTR610 Vv 
RK Re Ree RR eke te he ae 
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% * 
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* * 
% 


n 
e+ “Nb 
+ m< 
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OR AR IOI RC Scat ake a 
* 


* 
* PENCF, CLOSE 
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EERE K 
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Vv 
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JO IORI FI ROR AOR IO 
* x 
x x 
*SET BASE, GET* 
* ARGS * 
* x 
FOR IG IIIB IOI IOI kak 
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JOR RIG I ROI OI Of Horo K ak 
* % 
* * 
* PRINT BLANK * 
a LINE * 
* x 
FOI ROE BOR ROR IK kc 
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SOI IO RoR I Rk tok tek ak 
x cd 
a * 
*BUILD HEAGER * 
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AOI ROR ROI DI RR kee Xo 
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a ae 
* aK 
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LINE me 
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ORCI A ae ae a ROR RR HC 
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Ess 





$BA1230 Vv 
OR RRR ROR ORF af HOR ake 
* x 
* x 
* PRINT DUMP * 
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* * 
FIG A IORI ICI aK 
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SOG IIIA RAR IR Rt a 
OK * x 
x Ok * * 
¥AB%-->* STEP CORE * 
xo POINTER * 
wok x * 
SCO HOR IGIOR IORI 
Vv 
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* ee Ok 
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x * 
x * 
* READ VGLUME * 
* LABEL * 
* * 


FERRI IGRI Sk ACR IO ak 


$BOT70 v 
2 IOI ROI a a ek 


ENTRY 


7 
* 
* 
x 
* 
cd 
ry 
ie te hoo aK Ho a 
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REAC_VTOC : 
* 
* 


$BD0850 
SGA III IOR Atk ak 
* 
* * 
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$BS1330 
He 


$8S1 


$BS167C 
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EXIT 
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* 


a 
GET FROM WORDS 


FOOKOK 


BRE6SC 


Vv 
FRR AO Rote Ok tok 
x * 


* * 
*SPREAD BYTES * 
- TO 4 WORDS ¥* 


* 
SRR RO i ORR RR a kc ake ak 
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* START * * ENTER x * ENTER * * ENTER * 
* CIOEN/CIOEP * SRCHIOC % * — SRCHCHN * * COMRET * 
en Preeti rie rerre ss SEO OI OI RBI ROI I SOCIO IOI RCC HOOK 
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% * 
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SOK RI ROR RR fea ak 2k % % OK * *NO * * 
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% EXIT * * EXIT % 
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ae ee 
010470 Vv 
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* EXIT * 
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x * OOK 
* LOCATE * * * 
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JERR ke ake Ree oak He ak 


RHEE 


4 
x 
a 
* 
x 
* 
* 
* 


De i eC a ae ake ak 


EXIT 
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* * 
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Preto et Ces ss 2 2g 
SLO610 
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* NAME FOUND *> C5* 
* * & 
* * eee 
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* SHIFT LACC * 
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FOA3570 | * * 5 
1 
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* DFJP*OUT, DFJ * x x * 
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* YES 
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* * exe 
* YES * * 
a7 --5----- >* CO* 
RK 
DOS/GS PLAN SYSTEM FLOWCHARTS CHART BAS 


co 


kee 
* 


FOA437% 
FOR IOI ROI I ROR AOR a 11K 
x 

* * 

*-->* OUTPUT & 

* - VALUE SIGN 


RRO a a ROK ak aK HK ak ak 


eK 


* 


om 
xo------ G*DO 
* 


x 
% 
* 
ea x 
ci 


FOA4490 
YORK ACI ICR RR CR AE 3% ee 
we 


OUTPUT E 
VALUE 


AOI RI ROR totok sok kote 


se eH 


x 
x 
* 
x 
* 
* 


FOA4630 
3K ERROR RI A NOR Rk At 


HE 


x 


Vv 
FORA 30%. * 


* 
a 
* ROOM FOR 


* NORMAL FORMAL * 
* * 


* 
* 
NO 
FOA5150 v 


BCI ROIOI I ROK Rak a kak 
* 


x 


a 
ILL ker eee nn 9 
WITH * 
* 
Wek Reka eK ae ae Oe 
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* % ROUTINE 
% * at 
* * 
* * 
* YES 
| UNC1830 Vv 
2 aE OR dak ge aiak 
x * 
* ENTER * 
UNBLANK THE * SUPERVISOR * 
"TO% AREA : STATE > 
RO ROI a ok fob i ak 
Kee Sse sStS=Ss-- 0 | 
UNC1330 v UNC195C v 
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* * * i * 
* x PCCP CeL eS Sf ee ey 
* * 
* YES 
| Vv 
UNC1470 v UNC2390. * * 
SOR a RC fe af ke afte ak ae a ae ate * * 
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: NECESSARY - 
Hee Re ak a kee ok ie de 2c 
Rn eee 
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ERRET ERR2450 
IGG gop ROR ok dot ak tat 
JOO ERO OIC tote ok * * 
ERRET» * * Oe * * 
SUBROUTINES * START * *CO#-->¥*GET SAVE AREA*----~~=----— 
ERROR, ERREX, * ERRET x * * * 
ERRET, ERRAT SOR ARO ake dk tek ek * x 
ARR took i tok sok gk 
ENTRY 
INDICATES GS CODE 
SUB ROUT INE 
CALLED 
| * 
ERR1310 Vv ERR2710 * * ERR3330 
ORR IORI ICR OR SOR aC Reafc % 
x * 4K * XYES ex 
x * Ce xk * 
*SAVE REGS ETC*% *C2*> USER EXIT *> DO* 
a * x MODULE a % 
* * Hk * % sok 
2 Ra ROR ok ai giok ake 7 * 
% * 
* NG 
Vv 
ERR1L410 v ERR2810 * * ERR3330 
2 IO i ogOR i i ar aa * * 
* * * *NO eed 
* * x x Ok * 
*BUILD ERRMSG * me RGOM FOR *> DO* 
*IN WORK AREA * * aPERRS@ rd 
* * * * aK ak 
2 RIO fab kek foto io * * 
* x 
* YES 
ERR2110 v ERR2950 Vv ERR 3530 
SI tO fa Rak ko ik tok Seto So Oba dak kok 
x * x * AKA 
x * * % x % 
* STACK ERROR * * CALL LOCAL %*---> D1* 
* MSG % * @PERRS@ * * * 
x * * * ek 
Seb tok ak etek ak sc ak a SOR Roi Seg 2k kek 
Mv * 
ERR2130 * * ERR3130 * * 
* * x * 
* *NO 3k * *NO 
* * a * 
* ERROR Ram = O* C5 *D ERREX #--===-—| 0 
* x * * * 
% x ok * * 
x * * * 
x x * * 
* YES * YES 
Vv Vv 
JO OIE SOR Rp ok ak SOOO ROI Gi tok toto tea 
* * x * 
* EXIT * * EXIT % 
* GO TO DFJPLAN * * GO TO DFJPLAN * 
Sef oto a a tok ki gk tok FOR RR Fotki de 
Q-2-9-- == is) Q-- $3 0 
L i 
Vv Vv 
ERR21L70 * * ERR3170 * * 
* x * * 
* *YES x *NO 
cd * * 
* IMMECIATE Kom * ERRAT Kamae 8) 
* MODE * * * 
* * * * 
* x * * 
* * * * 
* NO * YES 
Vv 
ERR2270 * * ERR3130 ERR3219 v 
* * SORE Rog ROI Ri kok ake 
* *NO tok & * x 
* ee * * x 
* ERROR STACK *> C5* *SET ABORT IND* 
* FULL * * * * 
KE * * 
x * SRR RIOR IOI aK a aR OK IK 
* * 
* YES 
kon cree ---- 0 a aaa Ba a ie) 
Vv 
ERR2430 | * * ‘ ERR2710 ERR3230 ‘ 
% HYVES KK SOC IOI I toi ak ak ak ie ak 
a * * * * * 
* os *> C2* * EXIT * 
* x * * * RET TO CALLER * 
*# * KK FR ROK Bok i i ited 
* 7 
* x kok 
* NO % * 
wee ee >* CO* 
% * 
KOK 
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*D] ¥-->* 
KOK 
x 


ROR ROR IR OR kk kc 


FREE SAVE %--=> CE 
AREA x 


ERR313C 


ROK 
* xe 


a 
He 


CHART BBM: 
DCS/CS ERROR INTERFACE SUBROUTINES 


EWRIT 


EwRIT 


* 
* 


RP 


KHL 


FRI OR ROK ROR KOK ak 


START 
EwRIT 
SORIA ROI TO ROK ak 
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RELESR 
ax SCTE IC Hote ioiox 
FLNO, READ oes CI0E * * * % 
WRITE, RELES OETERMINE *CORD>* START * 
SUBROUTINES ORIVE CODE x # ok RELESR * 
ax BC RR tottok $a 
O-s=9s-55---5-—-— > sa] 
| 
v 
FIND FIN385C| *# 
OR KR I teak dei a eck tee * *YES 
* * * * 
* START * * VALIO ORIVE to----o- 0 RELES ROUTINE 
* * * CODE * 
{OR RII SOR Ra i i ak * * 
* * 
x x 
* NO 
FIN3050 v FIN3890. * * FIN5030 v 
FRO Io ar i kak a * * AR GIO IRR OK fof i ok 
* * * *NO * * 
* * & * * * 
* SAVE REGS, * * ALL _ORIVES Koma 0 *SAVE NSQZ ARG* 
* SET BASES * * TESTED * % * 
* * * * * Ed 
OR I ak i i RR a ek ak * * FIN19730 FORO RRR Ok aoe fete teak 
* HR 
* YES « & 
a--------- >* BO * 
% Gt 
tk tO 
| O=Ss99ee4seosSe== 0 
Vv 
FIN3170 v FINGL50 FINOB8O * * 
ek RC a Boke atk gk ke a ke a $4 tok pee ke * * 
* * * * % *NG 
* x * * * 
*SET CALL TYPE* * VALIDATE * * NSQZ ZERO #------- 
* * * DRIVE CODE * * 
x * * * * * 
SERIO go iG oI I a SCOR OR otag i taka tok * * 
x * 
* YES 
Vv 
FIN3310  * %* FIN3470 Vv FINSOT0 Vv 
* * Solo i lok dog dokoiokg FOO ROI a do RICK 
% *NOQ wx x % * * 
x x x Ok * * * * 
* READ/wRITE #-——--~--0%84%-->* GPEN FILE * * SET PARTIAL * 
ee # * * RELES IND * 
* x eK * * * * 
* * SOR ROR RRO BO ea FOR ROR RI KOK Ok 
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FIN3410 * * FIN3470 FIN441C * * FIN19730 FIN5110 Vv FIN7T370 
* * * * Ba ROI OR RS Som a ak ae 
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* x * % * x ok * k= - se 3------ * * * 
% ID BLOCK SPEN *> B4x * CID FILE OPEN *> B89 * *RELEASE FILE *---> Bl * 
* x x * x * 4 * * x Ok 
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morn > * BI 
* * 
fo 
FIN4 850 
! FIN45 10 FINDR 
$6 RR RR AOR OR Rolo aototoke ir 
* * OS CODE * * 
* EXIT * DETERMENE * START * 
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Q-~--------------- 0 
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* x o* * *  & * GO TO * * * * * * * 
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* x HK ee * * HEX * * ate 
* * FOO i i toot tet AOR IOI i Rolo i tak te 
a x eK 
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* SAVE NALLO * 
x ARG cs 
* * 
SR RR Ri SR OkC i RHR OK 
Vv 
FIN6010 * ak FINT270 
x * 
* xNO 3K ae ae a 
* x Ok ae 
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x READ FD * 
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Vv 
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FIN7250. * % FIN8290 * * F 
* * * 
ae * *YES ex * *NC 
O0US CODE - *  * * CAN FILES BE * *  & x 
SET DRIVE IN *B0%> RELES FOR ieteietatated O*CO*> KDIS/KOUNT 
TO«1) ek Ok SPACE * x VALID * 
ak * * wok * * 
* * * * 
* * * * 
* NO * YES 
| Vv 
FIN6550 FIN73 70 Vv FIN8430  * * 
SER ROR ROR atk a i kak teak JOR Rook Rotor ok $OR Rae te x * 
* * fo * * * *YES 
* * ak * * x * 
* SET ORIVE x----— ema QeH] -=-p* CLOSE.ID * * READ 
*COCE IN ID(1)* x * LOCK x 
* x 34K * * * 
FOR ORO JOR HOR AOI IK SEIS ICR IO IIR a 6k * * 
* x 
* NO 
FIN743C Vv FIN8470 * 
32 ROR IG tobok Rokk ok ak ak * * 
tok x * * *NO 
03 CODE SET ee7e * * * 
CRIVE IN ¥B2%=-->%* SET ID(2) * * KOIS & KOUNT 
1p) x Ok * * GR ID%2< * 
a * * * x 
FOIE AISI IO OK ok * * 
co * 
* YES 
FIN6610 FIN7510 FIN8510 v 
FOCI IOI ICI ICR A RoI kK x JERR RO tox Sok Sekai tok 
ao % * 48% SEI SIOIO ROOK BO Rok tok * * 
x Ox x * x Ok * % x 
*A3 —->* JET DRIVE * x*B3 >* EXIT * *SET NEW I[D%2<* 
x * *CODE IN IO(1)* * * * RET TO CALLER. * * * 
etek * * OK FR ROR OR I ROR ICIOI IR ak ak * x 
JIC RO III I IOI I HOR JGIOROROI ROR 3K KC 
<----- ao--------- 0 i worn inna n anne <-------- 
FIN6650 Vv FIN7430 FIN7650 Vv FIN8530, * x 
FO RO ROR tok i dot SRI ROR BOK a AOI IK Aa * * 
* a kok * * * *YES 
* * * a x * * x 
* OPEN THE ID *~——> B2* *SET PRIORITY * *  KDIS & KQUNT 
* BLOCK rr * FOR RELEASE * GR [D$2< 
* * kek * * * * 
ROE KOR IK aR IRR Ee Xe GIRO IOR IOI 1K tk * * 
x & 
* NO 
FIN6930 FIN7750 Vv FIN8610 v 
FG Ror og pio io x 40K SOI RAO IHG HO 2 OR ROC ak i toro 
aeROK * x *xPRIREL A8* * * 
* oo —-XCCNVERT_NALLO* #e- == 3------ * * CONVERT _ * 
*AS -->* — ARG TO Ao --- * RELEASE BY * *KDIS/KOUNT TO* 
* & “% SEGMENTS  * * PRIORITY * * BYTES * 
tok * * * * * 
JO Olio i fototok a JR ORO aR rai Re Rk a cok OIC RR Reale 28k ak a 
ALLOC FIN?850 Vv FIN15510 FIN8810 Vv 
JSC I ROI ERO tok FOIE OR IK ak aOR kok 
SCI IOI Ok ai fk ROK OK a br * * stor ROK * * 
* * * ok * SET RETURN %* * 2 x * * 
* START % 4B 6 Xm am DK FROM %—=-> AG * *C6 -->* GET FORTTR * 
* ALLOC * *  * * ALLOCATION * x 4k * Ok * FROM IDZ1< * 
SGI II HOI OR SOI HOR OK * x eA kK * * 
SOIR IORI IK TOR GK Bok OIRO AOR Fo Fk ok a ak 
Fa a ae en ee 
FINTO70 Vv FIN8890 * * F 
SOIR IOI I Rai tok i * 
* x * *NO 
* * * * 
* SAVE RETURN * READ/ WRITE * IS IT VALID 
bi LINK * ROUTINE * ” 
SCI RIOR IOI I I EOI tO a * * 
* 
* YES 
FIN711C€ FIN8230 FIN8930 
SCR ROR OIC I a I RR SIO CR ROK i tke JGR AOI ok kakokaioak 
* * * * * 
* a x * * 
* READ VTOC * * GET ARGS * * READ FD * 
x RECORD x * x * RECORD * 
* * * * x % 
“eS AGO OI IOI ROR oR tok FOI RIOR OR ttt at 
Vv Vv 
FINTI50 . % % F IN7850 REAOR FIN9030 | * * 
* AYES OK AO IG IOIOI IOI RIC ok soko * *YES 
x xk % * * x * x * 
* SPACE *> Box * START *=> COX * REQ_IN FILE 
* AVAILABLE * % READR KOK SIZE 
* * HK FO IORI OR ICR ICI R deka oko 
* x * * 
* * BKK xk 
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w--------- >* BOX wort n nn 
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* * 
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* * 
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* * ek He 
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* * soko 
SOI GIO TOR IOI HOI OK 
i te a ee 
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JACI IIR FOR I dO OK ok 
* * 
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*SET ALLOC REO* 
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SSS neet fe) 
FIN737¢0 FIN96390 Vv 
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* * * * 
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aK * * 
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FIN9650 Vv 
FRG ROR IOI Fok Hk a 
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* * 
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* x 
FOI RIO IOI kak 
FIN9670 v 
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* * 
* * 
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. ALLOCATION : 
FO OIC IOI ROK Rk AOI 
IN19730 FIN9690 v FINSBIC 
JCS ob RRS ROI kkk 
Het *xALLOC A6* de ae 
x * e-- = 2------ * x * 
*> BO * * ALLOCATE tone CO* 
® 4 . SPACE * * * 
OK * * Heme 
JCI I IOI IOR ATOR Hog 
FIN9810 
SOI IOI RR aC ROK tie ak 
aK a * 
+ .* * CALCULATE ¥* : 
#08 *-->* LOGICAL * 
a. #RECORD NUMBER* 
FOR ROR AOR ROI OR AOR ROR 
FIN9810 FINL0030 v 
FOI OI ORO TOR a i ote 
ok XK * * We ok a oe 
* * * CALCULATE * * * 
*> DB* * COGICAL mses > NE 
* * x SEGMENT * a Ae 
ae * NUMBER x Fe HOR 
FAO IOI RR II 
soko 
* * 
>* DO* 
* 
tote 


FIN1O190 
ROR ROR Rea ae ae a oe a ak 
RK * % 
x * * x 
*AO —->¥LOCATE ACTUAL 
ee Ok SEGMENT) ® 
kK * * 
FR a Xe fe a oe ak a ae ae ae 
FIN10410 V 
PUREAE MER AEESES 
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OC a toltok a 
* x 
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* 
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* x 
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FINLO890 Vv 
JGR Rg RO ER Sok aa ac 
* 
* 
PDATE x 
S/KOUNT ee 
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33k A RGR a doo tote 
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* 
x * 
* READ/WRITE * 
x * 
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SEO IO SOR IO i ia Sok ak 


Vv 
FINL1110 * % 
* x 
* *YES eK 
x * 


* 
* USER KQUNT *> B3 * 
* ZERO x Oe 
* AIK 
% 
*  &* ett k 
* NB x » 
worsen - Ha >* CO * 
x 2% 
FRR 
FIN8810 
PRIREL 
fom JOO IOI ICk 
kok t 
*AB >* START * 
* * * PRIREL 
OK SARI AOR ob IOI 
FIN1L1250 Vv 
Lop eee 
x Ao 
* * Ox 
* SAVE RETURN tana> BOx 
* CINK ek x 
x ¥ Ok 
AR Re ae a oe a RR ek 
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FIN11270 FINL1850 
Ret R e Rok oe Rokk ok ee 
tot a * *% SRO RRO ROK Rok iodo 
x # & SET RETURN * * * * oe 
*BO*-->* LINK FOR * 4CO*>* EXIT * 
* ok x RELES * * * RET TO CALLER * 
OK * * aoe ee ae Kk 
RRR RoR oft ak ake ae ak ak ok 
Sa alata 0 
FINLL41C v RELE SF 
eR oe 
% SCAN Bo* OK ICICI OI ka i tok 
ee x tk * 
* RELES ANY #* *C]l >* START % 
« FILE 1-127. * x & RELESF * 
* * ee XK RRR BOK ROR RRC ae 
Ag gO ak Aoki tok Gok Fk 
FINL1L45C v 
JG took dake tok 
*SCAN Box 
#2 -----3-------* THIS ROUTINE 
* RELES ANY * RELEASES A 
SFILe 128-255 . FILE 
2 ob Re a ak ok ie ake ie a 
v 
FINL1490 * * FIN11950 
* * FRC Roto ao kot ai ac kak 
* *NO me x * 
* * * * * * 
* RELEASED PRI Bown O*C3%*-->#*READ VTOC REC* 
* #4 * x * * * 
* * sd * * 
* x RO ROR RO BOK ee ok 
* * 
* YES 
V 
FINi1510 FANLL O20. * * 4 FIN15352 
2 ROK ay fo kok ka kok * ENQ oboe 
* * % * Ok * 
* EXIT * * FILE EXIST *> AG * 
* RET TO PRIREL * * * OK Gk 
ee Ho 2 ae a ee x * ak Mek ak 
* * 
* * 
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i J an (a) 
FIN11536 v FINI2070 Vv 
5 of ok ak Rok teak ae a tok fo si kak kok eo ok ae 
% * * * 
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* * x Ok Ok * 
* START * *CO &> > EXIT * 
* LIST * * * * OVERS5SO * 
FRR RIE AOR FOR AO a 4K SIG RR tok fotok tok 
L19730 L1S$2020 
JORG IOI OIO 3k hieleiaiibinibiaiiiaia’ 
* eo e S 
% * 
*SAVE REG, SET* #c1¥-—>engve ENTRY Tox 
: BASES, ETC. : wae % PoP-UP LIST ‘ 
FOI SRR Raa a ROK Jee EeeEk one 
| Kasse se eeesee 0 
v v 
LTS940 | * * ‘ LIS$2450 L1S2350 * * + L1S1890 
* *YES RK * *NO 4 
* x oO* * * * Ok * 
* USER COUNT *> C4* * LAST ENTRY *> BT* 
* ZERG * OF * x x Ok * 
weak * * XK 
* * * * 
* * * * 
* NO * YES 
LIS1035 V L1S2430 Vv 
3 Rot kk a doa ak ote ak ak ok SRESSEERSE TASS 
* x xk * 
* * x o* x 
* ROUND CQUNT * AC34-—>#UP SATE POP-uUP* 
* * * gt LIST POINTER * 
AO iolok lak ak dokatoke sok Feeeseeennncies 
Vv 
LIS1095 | * * % L1S2532 L1$2450 M 
* YES Ke Eos 2 OR Robo a aK Foti kak 
x x OK x wk * 
% NEGATIVE CALL *> Co* *C 4D % EXIT * 
* Kk ok Ok * * & RETURN * 
* x CK a SAGE ROO ok 2k ok kak 
* * 
* a 
* NO 
LISl175 Vv LIS2472 
305 tok ato iota tok SO A oto ke dok Saki teak 
* * ek x % 
* x x Ok x * 
* SET LIST * *C5%-->*RESET POP-UP *~-~-----~-- 
* POINTERS * * Ok x LIST * 
% * eK x * 
“2 FOS RG ROR zob kK 
v 
* * LIS2472 LIS2532 v 
x x Jes tobiciiokie 
% KYES CK Pd * 
* x ok *  —& MOVE POP-UP i" 
* USER_ENTRY *> C5* Hco4-—>4LIST ENTRY TO* 
* ZERO * Om % * ba USER ARRAY 
ROKK ee : 
* * Fock aoe tek oe 
x x 
* NO 
v Vv 
L1S1890 * * i £182020 LIS2536 * % é L182430 
*e x *NO OK % YES kK 
Ce % x * * mk * 
*BT*> LIST OVERFLOW *> CL* * LIST _ENTRY *> C3* 
x *& * Ok * x ZERO * Ok * 
eK % * kK toto 
x x * * 
x % * * 
* YES * NO 
v _v 
LIS1910 * * 3 L1$1990 LIS2544 * * i 
* aYES ok * *NO 
x x * x * 
% os *> CO* * USER_COUNT feoccn 
KO * * ZERO * 
* * eK 
* * x * 
* * * * HH 
* NO * YES * * 
sew esoeoe= >* C3* 
tok 
LIS2430 
LLS1930 
OR oR OR i gakoke Sokakak aka 
x * 
* EXIT * 
* ERLINK * 
SOI IGOR A foie tok 
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ARE HO OR BO I SOK 
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% EXIT 
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oe ek 


Sto dota et * 


181030 v 
3 tok ok to a tok too 
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LIST * 
TER * 
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ee 


uv 


5) 
FOR ke 
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* UPDAT 
I 
* S01 OK 


He 


te 


ee OM 
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FOS ROR RA AACR 


eH 


ENTRIES 
$I ROO TOR a goto a 


He 


*x 
* 
* SHIFT LIST * 
* 
* 


L1B1290 Vv 
SER ORICA 
* 
* 
* PUT NAME IN * 
LIST = 


* 
ORR ROR A RO de 


RH 


+ 


L1B1310 Vv 
ROI BOR A ROR tk aK ak 
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* * 
*RESTORE REGS * 
% * 


* * 
FG HOR IOI doi tok ak 
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FRC BO Bk ak ak ak ak ak 


EXIT 
GO TO OFJPLAN 
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SRR RR tok tok ek ka 
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LNRET. 
SOR RIOR KOR KK 3 


LNR410 
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Vv 
3 ORR ai i ak tot ak ak fake 
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SAVE REGS 


HHH 
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* 
% 
* 
SR Ree a ai ae i ae ak a ae kK 


so dO A HK 
* 
ET x 
TION * 
EL * 
* 
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Se RO eR oa ee RK 


10 Vv 
TERROR RO ACR OK a HK 
* 


FREE LOCAL 
CHAIN 


HHH 


5 
* 
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Vv 
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EXIT 
RET TO CALLER 
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ab Oa ao oe 
* 
T * START 
INE * LNRET 
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we ok a ea ae 


UNR410 Vv 
Sot AO ok 4k 
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AVE REGS 
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KK ROR KK ERR EK 


LNR470 Vv 
ROKK RK RE 
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* 
ox 
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* CLEAR LOCAL * 
* GHAIN * 
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v 
SAREE EREKE EES EH 
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LOCAL 
ROR IOR A AOR ORO HB IK HK 


START 
LCCAL 
SOR ROR RIOR ROR AK Hee 


x 
x 


RH 


710 Vv 

SA IO ROR A OK A HK Kak 
* * 
* * 
* SAVE REGS * 
* * 
* x 
* * 


SRO OR OR aR RR ROR a 


LOCc750 Vv 
FRA IRIE ROK oe 
* 


x 
CALL @LISTa : 
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* 
* 
* 
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* 
* 
SEI ISO OIC IOI tok 


Loc810 Vv 
FR A HK A HO tok aK ok 
E * 


* * 
*LOCATE BLANK 
* “COMMON * 
ee RO ae a ae ap ak ae a ae a i a 


Vv 
ee i RRO a a ok 
* 


x 
*SET PARM LIST* 
% REG * 
* * 
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LOCAL LOC2030 
RR aOR ok kkk ok 
SOO I ROI IC ak * K 
* * x * x * 
* _. START * *CO*-->* RESET CHKPT * 
LOCAL * *  * * REQ IND * 
Re ee ade ho teak ek ake cs * * 
ROR AOI I RO aoa ok 
LOCT2C v 
AGE eto Rit OK ok Vv 
& ROCIO IO IOI HOI IOI 
* * * 
* LIST, SET UP * * EXIT 
* POP-UP LIST * * RETURN 
* * EIS RAI HOI Fai dotok 
AAI I ROR AIO ic 
v 
UOC 8sO | * * ¢ EXL 
* *YES AOI IOI ICI IOI I ke ak 
* * 
* LOCAL IN tow % ENTER 
* CALLER PGM * EX1 
* * FRR ROI IOI ROR OR OK 
* * 
* * 
* NO 
Vv 
PEEL eLererer oe f 4 
* * 
* EXIT * ENTER HERE ON 
* ERLINK * LOCAL RETURN 
OK 
i j--—-~------------- i) 
LOC1050 Vv LOc2270 v 
Peer errr role re. FEO AI aor 
* * * * 
x * * x 
* PROCESS * *LOCAL CALLER * 
* CALLERS ARG * * IND * 
* * * * 
ZOGOr ta ior JER OR OI tok fotoiogok 
£GC1250 Vv 
MPRA RE RIOR Vv 
* * SIRO OIDIS BOR aK 
* * x 
* MARK PGM AS * * EXIT 
*LOCAL CALLER * * RET TG CALLER 
* * Pererrreree tt te 
eet Pero ren Stay 
Vv 
FOI ROI ROR AIR ROK 30K 
* * 
* EXIT * 
* NEXTLOAD %* 
SOI Raa iO tok 
ENTRYA 
FO IO TORIC fk 
* * 
x ENTER * 
* ENTRYA * 
2 III (Okoker 
ENTER HERE TG 
CHKPT PGM 
LOCLOSC v 
A ROR tof Rofo a te 
* * He 
* * % * 
*WRITE PGM ON *---> CQ* 
* CHKPT FiLE * * * 
* * 41K 
SOO IOI boi TO Ii ok 
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% Me He kf a ea HK 


V 
ON ROR ACH RC IK 
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EAT 


HHH 
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x 
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* SET 
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EP 
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Vv 
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LRET 
Se Bao oe Rk 
* 
* START 
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LRET * 
Sef Roto kok sok grr ak 


Re 


"e 


LRT4E0 7 
SRI RO LOR A tok 


« a 
* %* 
*LOCATE BLANK * 
* CCKMON * 


* x 
OR ROR SO tok tok ak 
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ORO dot gi Ok a toi tk 


RHE 


* 
* EXIT 

* GO TO DFJPLAN 
SOR FIR ak 
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LSAV 
FOR ROR Rk kok a ak ak ai ate a 

a * 

* START % 

* LSAV * 

1% 


* A He Re ae he aC ae ae ak ok 


LSA290 Vv 
SE ERE 
* 


x x 
*ERROR NUMBER > 
* = 112 * 


* % 
ROR ROR RR ke ake ai ae akc 


Vv 
SOR aR a a ee sak ake ak ak 2k 4 0k ak 


RH 
RH 


EXIT 
ERRABORT 
FRC AR ICI ROK Ba Hi HK a 
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NOEF 
PEELE LeLLLe reef! 
* * 
* START x 
* * 
AOI A ROR HOR RRR ak 


Vv 
NDE79C * * 
* *NO 
* * 
* VALUB TRUE 4—-—----- 
* * 


% * 
x 


* 
YES 


* 
NDE810 | 
Sok tok a ak 


RH 


% 
* VALUE FALSE ke=s=<2= 0 
* * 


peter, 


tH et 
HHH 


NDE930 | 
v 
Hae 
EXI 
RET FAL 
SERRE 


xX 
A 
a * 


#4 


NDE1010C y 
Se 2 RO a a 
* 
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* 


eo 


EXIT 
RET REAL ANS 
HOR A ROR BOR I gb a a 
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CHART BODE? NUSERsGUSER,EUSER;IUSER 
DGS/OS USER EXIT CONTROL SUBROUTINE 


NUS 1850 
Soto I a Ok tok i gOk XK FOI ROR SRR ROKR AOR a at ae 
x x ae a 
* START % *BOKD* EXIT * 
%* NUSER * * k RETURN x 
ROTOR ITOK Ra 2K fe HK a RO ICI III tok 
NUS191C 
JIC I ROI HOI x dk 
Hx x x 
ek x x 
GUSER *B1L%-->* STEP ISUBS * 
PROCESSING x Ok * * 
ax * x 
FOR ORR ROK aR ke Xk ko 
| Vv 
NUS1550 Vv NUS2050 * ss NUS1810 
J III OK ROR HOR ea * * 
x x * *YES Ke 
* * * ek x 
* GET ARGS * * ISUBS VALID *> AB* 
* x a x Ok * 
* * x * OK 
JR RIOR AI AOR AR Rk HOR ak x * 
x * 
* NO 
NUSI1590. * x NUS2090 Vv NUS1810 
x * FR RICE ROK ROE Ka ak eke 
* *YES x x tok 
% x * * % x 
* UCHAR ',f OR #------- 0 * SET ISH *--=-> A8B% 
* ese * % x * * 
x * x x eC ok 
* * 2 OI Ri qk fai ak took 
* x 
* NO 
NUS163C Vv 
JGR RO I Rak a ik ak koa atk 
* % 
x x 
*MOVE CHAR TO * EUSER 
* USER ARRAY s PROCESSING 
* 
~~“ 
NUS1650 | NUS1850 NUS2130 
2 AOKI I RK ROR RRO FB FRR OR SOR OK HK, 
* % 240K % % 
% x % x x x 
% GET NEXT x---> BOx * MOVE Nly N2 * 
* CHARACTER * *  & * TO PSCAN  * 
x * HRK x * 
FORCE ICR OR 2 Ri a ak a OK ae FI ROI III ak 
Vv 
NUS22S0 * * 
* * 
* *NO 
x x 
NUSER * LITERAL ea 
PROCESSING * % PRESENT % 
x * 
* x 
* YES 
* 
NUS1730 * x NUS1910 NUS235C 
* * OR Rt kak kk ak kak kk 
* *NO 2K * x 
x * * % * * 
% FIRST CALL *> BL* *xMOVE LITERAL * 
x xO % * TO PSCAN * 
x % OX a ES * 
* * 3 Gio a ROI OR 30k ak ak 
* x 
* YES 
€{---- + - 
NUS1810 v NUS2370 
Fe RRC ai a ok Ai ok de ok Vv 
eK % % 2 OR a gat a ak 20k 
x ok % * * 
*AB%——>%* MCVE I1SUBS * x EXIT * 
HO % * TO *RETURNE a 
OK * SOR RR ACR OR aR ak ak ak 3k ak 
SOR IORI aK aa ak ake ek feat akc 
é£---------------- 0 
NUS1830 v NUS1850 
ROI I RC I x kk a 
% # eK 
ad a * a 
* MCVE ISW OR *---> BOx 
x UCHAR % % % 
x * ok AK 
OR OR I eR RR RK ka ak 
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* START * 
* PAIN * 
RIOR RI 20k ki oi ok ae 


PAIL 
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* * 
* *YES 
* * 
* — NGD ARG VALIO 
* * 
* * 
* * 
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* NO 
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* EXIT 
* CCMRET 
SOR RO oe tok ok 
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* 
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Vv 
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x x 
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Vv 
TST1L290 x * TST2270 
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Vv 
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* 


HH 
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* *YES 
* % 

x NOP 4, 8 konn--H Q 
* x 


* * 
% * 


TST1990 TST2290 
AGRO aR OR Raa OK Hok 
* at 
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